![sad.gif](style_emoticons/default/sad.gif)
Объясните в чем причина плиз...
Код
uses crt;
{Procedure ShowRec;}
var
A:array[0..20,0..10] of char;
fi:text;
x,y,j:word;
ch:char;
begin {ShowRec}
clrscr;
x:=0;y:=0;
assign(fi,'rec.txt');
{$I-}
reset(fi);
{$I+}
repeat
read(fi,ch);
A[x,y]:=ch;
inc(x);
if x=20 then
begin
inc(y);
x:=0;
end;
until eof(fi);
while y<>10 do
begin
A[x,y]:=' ';
inc(x);
if x=20 then
begin
inc(y);
x:=0;
end;
end;
j:=1;
for y:=0 to 9 do
begin
Write(j,'. ');inc(j);
for x:=0 to 20 do
begin
write(A[x,y]);
end;
writeln;
end;
end. {ShowRec}
{
begin
ShowRec;
end.}
в файле rec.txt находится следущий текст:
Morfey___________123Scorp____________103Zorg______________98Den_________________
__68
Сообщение отредактировано: Morfey85 -