Не могу найти ошибки в программе

var n,m,count:integer;
s:string;
f:text;
mas:array [,] of integer;
col:array of integer;
ostov:array [,] of integer;
begin
n:=0;
count:=0;
Assign(F,'D:\55.txt');
 reset(f);
for var i:=1 to length(s) do
if((s[i]=' ')and(s[i+1]<>' '))or(i=1)and(s[i]<>' ') then n:=n+1;
m:=1;
while not eof(F) do
 begin
  readln(f,s);
  m:=m+1;
  SetLength(mas,n,m);
 end;
 close(f);
 Assign(F,'D:\55.txt');
 reset(f);
for var i:=1 to n do
for var j:=1 to m do
read(f,mas[i,j]);
inc(count);
for var i:=1 to count+1 do col[i]:=i;
for var k:=1 to count do begin
min:=MaxInt;
for var i:=1 to N do
for var j:=1 to N do
if (col[i]<>col[j]) and (mas[i,j]<min)
then begin
iMin:=i;
jMin:=j;
min:=mas[i,j];
end;
ostov[k,1]:=jMin;
ostov[k,2]:=jMin;
for var i:=1 to count+1 do
if col[i]=col[jMin] then
col[i]:=col[iMin]
end;
for var i:=1 to count do
writeln('(',ostov[i,1], ',',ostov[i,2], ')');
end.

for var i:=1 to length(s) do

if((s[i]=' ')and(s[i+1]<>' '))or(i=1)and(s[i]<>' ') then n:=n+1;

m:=1;
while not eof(F) do
 begin
  readln(f,s);
  m:=m+1;
  SetLength(mas,n,m);
 end;

for var i:=1 to n do
for var j:=1 to m do
read(f,mas[i,j]);

inc(count);

for var i:=1 to count+1 do col[i]:=i;