Работа с файлами ПаскальABC.NET

[Вадим Вергун]

Прошу помочь. Имеется текстовый файл файл в нём строки состоящие из нулей и единиц.требуется перенести содержимое файла в двумерный массив. Однако не переносит! Говорит что неверный формат входной строки! Подскажите что не так.

uses
  ABCObjects, GraphABC;

var
  y,u:integer;
  a: array[1..8,1..8] of integer;
  f: text;

procedure fail();
var i,i1:integer;
begin
  assign(f,'Карта.txt');
   reset(f);
   
   for i := 1 to 8 do
   begin
  read(f,a[i,u]);
  y:=y+1;
  if y=7 then
   begin
   readln(f,a[i,u]);
   u:=u+1;
   y:=0;
   end;
  end;
end;
procedure perenos(); //вывод на экран
var
  i, i1: integer;
begin
  
  for i := 1 to 8 do
    for i1 := 1 to 8 do 
    begin
      if a[i, i1] = 1 then
      begin
      Setpixel(i,i1,clred);
        end;
    end;    
end;

begin
u:=1;
fail;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, вообще более чем странная процедура чтения...

попробуйте такой код:

uses
  ABCObjects, GraphABC;

var
  a: array[1..8,1..8] of integer;

procedure fail();
var 
  i,i1 : integer;
  f : text;
begin
  assign(f,'Карта.txt');
  reset(f);

  for i := 1 to 8 do begin
    for i1 := 1 to 8 do 
        Read(f, a[i, i1]);
    ReadLn(f);
  end;  
  Close(f);
end;

procedure PrintArray();
var
  i, i1: integer;
begin
  for i := 1 to 8 do begin
    for i1 := 1 to 8 do 
        Write(a[i, i1]:2);
    WriteLn;
  end;  
end;    

procedure perenos(); //вывод на экран
var
  i, i1: integer;
begin
  SetBrushColor( clRed );
  for i := 1 to 8 do
    for i1 := 1 to 8 do 
    begin
      if a[i, i1] = 1 then
      begin
        {Setpixel(i,i1,clred);}
        Rectangle((i-1)*10,(i1-1)*10,i*10, i1*10);
      end;
    end;    
end;

begin
  fail();
  perenos();
end.

если что, файл "Карта.txt" в архиве: Карта.zip

[Вадим Вергун]

Спасибо! Работает как надо! В роде разобрался с нужной процедурой.