Код
uses crt;
var
pin:array[1..22,1..60] of char;
i,j:integer;
input:text;
symbol:string;
begin
clrscr;
assign(input,'C:\level\level1.txt');
reset(input);
i:=1; j:=0;
while not Eof(input) do
begin
readln(input,symbol);
for j:=1 to 60 do
begin
if (length(symbol)>=j) then
pin[i,j]:=symbol[j]
else
pin[i,j]:='-';
end;
i:=i+1;
end;
for i:=1 to 22 do
begin
for j:=1 to 60 do
begin
write(pin[i,j] );
end;
writeln;
end;
end.