считывание с файла! Опции

[arhimag]

Помогите найти ошибку, почему в конце стрелочки???

Код

program MapEdit;
uses vesa256, vesatype, crt;
const
edit = 'map.txt';
var           driver, mode, x, y, i,j,a : integer;
              map: array [1..100,1..100] of char;
              karta:text;
              probel:string;
              tekstura: char;

procedure readng(level: string);
var i, j, n, m : integer;
begin
     assign(karta,level);
     reset(karta);
     For i:=  1 to 100 do for j:= 1 to 100 do  begin
     if (j = 1) and (i<>1) then begin
     readln(karta,tekstura);
     map[j,i]:=tekstura;
     end
     else
     begin
     read(karta, tekstura);
     map[j,i]:=tekstura;
     end;
     end;
     close(karta);
end;

begin
     readng(edit);
     for i:= 1 to 100 do for j:= 1 to 100 do if j=1 then begin writeln(map[j,i]); readln; end else
     write(map[j,i]);
     readln;
end.

[volvo]

Правда? Ну, тогда присоедините ОБА скриншоты с рабочего стола, где видны эти стрелочки... Я хочу САМ увидеть их... В особенности это относится к тебе, Студентик13... Ты б свои проблемы решал...

Свой скрин присоединю через минуту...