Riesenproblem mit nem runtimeerror in pascal

[Cloudff7]

hi, ich weiß jetzt nicht, ob das genau hierher past, aber so langsam krieg ich hier nen kind mit diesem programm! hab grad erst angefangen zu studieren und kann mir einfach nicht mehr helfen! ich poste euch einfach mal den quellcode vom programm, wäre lieb wenn mir jemand sagen könnte, was ich da falsch gemacht hab!

var textdatei1: text;

var matrix: array[0..4,0..4] of integer;

var z1,s1,i,j,k,hilf,e:integer;

function m:integer;

begin

assign(textdatei1, 'matrix.txt');

reset(textdatei1);

z1:=0;

while not eof(textdatei1) do begin

s1:=0;

while not eoln(textdatei1) do begin

read(textdatei1, matrix[s1,z1]);

s1:=s1+1;

end;

readln(textdatei1);

z1:=z1+1;

end;

close(textdatei1);

{writeln('Eingelesen');

readln;}

for j:=0 to 3 do begin

for i:=0 to 3 do begin

if matrix[i,j] > matrix[i+1,j] then begin

hilf :=matrix[i,j];

matrix[i,j] := matrix[i+1,j];

matrix[i+1,j] := hilf;

end;

end;

end;

for j:=0 to 3 do begin

if matrix[4,j] > matrix[4,j+1] then begin

hilf := matrix[4,j];

matrix[4,j] := matrix[4,j+1];

matrix[4,j+1] := hilf;

end;

end;

m:=matrix[4,4];

{writeln(matrix[4,4]);

readln;}

end;

begin

e:=m;

writeln(e);

readln;

readln;

end.

[M.A.Knapp]

runtime error nummer ? welche zeile ?

[Cloudff7]

runtime error nummer ? welche zeile ?

er sagt nur program exited with exitcode=2

compilen tut er das programm jedoch ohne jeden fehler(sagt er zumindest)!

deshalb kann ich auch keine zeile etc dafür angeben und bin selbst relativ sehr verzweifelt!

[M.A.Knapp]

lass es mal im debugger laufen mit allen debug-infos aktiviert

[Cloudff7]

hab keine ahnung,wie ich das bewerkstelligen sollte, aber habs mitlerweile mit nem anderen quellcode hinbekommen! trotzdem vielen dank für deine hilfe! :uli