помогите сделать алгоритм в Паскале!!!Буду очень благодарен

[BO4A]

program bocha;
var a:array[1..3,1..3] of integer;
i,j,max,s:integer;

begin



for i:=1 to 3 do

for j:=1 to 3 do begin
writeln('a[i,j]=');
readln(a[i,j]);
end;
assign(output, 'pochatkovi danni.txt');

rewrite(output);
for i:=1 to 3 do
begin
for j:=1 to 3 do

write(a[i,j]:5);
writeln;
end;
close(output);
assign(output, 'rezultat.txt');
rewrite(output);


max:=a[1,1];
s:=0;
for i:=1 to 3 do
for j:=1 to 3 do
begin
if a[i,j]>max then max:=a[i,j];
if (i+j=4) and (a[i,j]<0) then S:=S+a[i,1]+a[i,2]+a[i,3];
end;


writeln('suma=', S:3);
writeln('max=', max:3);
readln;
close(output);
end.

[Chudo4258]

для чего вы используете файлы если вы их нигде не приминяете, кроме как assign(output, 'pochatkovi danni.txt'), даже в var не описали.
Напишите формулировку задача.