Матрица в Файле [Pascal]

0)
const ARRAY_SIZE=100; // размер массива в файле
1)
c:integer <- который элемент по диагонали
n:integer <- текущий элемент
i,integer;
flag:boolean;
2)
c:=1;  flag:=false;
for i:=1 to ARRAY_SIZE do begin
 for k:=1 to c do begin
  read(f,n);
 end;
 if (not(n=1)) begin Then Writeln('Ne edinicniy massiv'); flag:=true; break; end;
end;
if(not(flag)) then writeln('Edinicniy massiv!!!');

program matrix;
uses crt;
const SIZE=100;
var
    f:file of string;
    st:string;
    i,k:integer;
    flag:boolean;
begin
assign(f,'file.type');

{создание файла}
rewrite(f);
for i:=1 to SIZE do begin
 for k:=1 to SIZE do
 begin
 if k=i then st[k]:='1' else st[k]:='0';
 end;
 write(f,st);
 end;
close(f);
{создание файла}

reset(f);
flag:=true;
for i:=1 to SIZE do
begin
read(f,st);
for k:=1 to SIZE do begin
if (st[k]='0') and (k=i) then begin flag:=false; end;
if (st[k]='1') and (k<>i) then begin flag:=false; end;
end;
end;
close(f);
if flag=true then writeln('Единичная') else writeln('Неидиничная');
readln;
end.

uses crt;

type MX=array[1..100,1..100] of word;

var M:MX;
    FileName:string;


procedure Gen(Var M:MX);
 var x,y:word;
 begin;
  for y:=1 to 100 do
   for x:=1 to 100 do
    M[X,Y]:=random(1000);
 end;

procedure Save(N:string);
 var x,y:word;
     t:text;
 begin;
  assign(T,N);
  rewrite(T);
  for y:=1 to 100 do
   begin
    for x:=1 to 100 do
     write(T,M[x,y]);
    writeln(T);
   end;
  close(T);
 end;

procedure Load(N:string);
 var x,y:word;
     t:text;
 begin;
  assign(T,N);
  reset(T);
  for y:=1 to 100 do
   begin
    for x:=1 to 100 do
     read(T,M[x,y]);
    readln(T);
   end;
  close(T);


 end;

begin;
 randomize;
 Gen(M);

 write('Enter Name File'); readln(FileName);
 Save(FileName);
 readln;


end.