Скопировать элементы файла в квадратную матрицу размером - PascalABC.NET

var f:file of char;
    a:array[,] of char;
    c:char;
    n,i,j,k,jmx,jmn: integer;
begin
//создадим типизированный файл
assign(f,'SPISOK');//файл в папке с программой
rewrite(f);
writeln('Введите в файл не менее 4 символов, окончание ввода 0');
i:=0;
repeat
readln(c);
inc(i);
write(f,c);
until(i>3)and(c='0');
reset(f);
n:=filesize(f);
while frac(sqrt(n))<>0 do n:=n+1;
n:=round(sqrt(n));
setlength(a,n,n);
k:=0;
writeln('Исходная матрица');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do 
   begin
    k:=k+1;
    if k<filesize(f) then read(f,a[i,j])
    else a[i,j]:='.';
    write(a[i,j]:2);
   end;
  writeln;
 end;
close(f);
for i:=0 to n-1 do
 begin
  jmn:=0;
  jmx:=0;
  for j:=1 to n-1 do
   begin
    if a[i,j]<a[i,jmn] then jmn:=j;
    if a[i,j]>a[i,jmx] then jmx:=j;
   end;
  c:=a[i,jmn];
  a[i,jmn]:=a[i,jmx];
  a[i,jmx]:=c;
 end;
writeln('Обмен минимального и максимального в строках');
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:2);
  writeln;
 end; 
end.