Процедура шалит, Написал подпрограму, рамотает так как надо но как только ставлю ее про Опции

[Morfey85]

Написал подпрограму, рамотает так как надо но как только ставлю ее процедурой выводит кое что лишенее. Немогу понять почему
Объясните в чем причина плиз...

Код

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 - 9.04.2006 14:04