Program fd;
var A:array[1..2,1..3] of integer;
    f:array[1..2] of integer;
    fail:text;
    i,j,n:integer;
 
function MAX(i:integer):integer;
var m:integer;
begin
m:=A[i,1];
for j:=2 to 3 do
if A[i,j]>m then m:=A[i,j];
MAX:=m;
end;
 
begin
for i:=1 to 2 do
for j:=1 to 3 do A[i,j]:=random(9);
f[1]:=MAX(1);
f[2]:=MAX(2);
 
write('A:');
for i:=1 to 2 do begin writeln;
for j:=1 to 3 do write(A[i,j]:3);
                 END;
writeln;
writeln('F:',MAX(1),', ',MAX(2));
{**************************V FAIL*******************}
assign(fail,'dannie.txt'); rewrite(fail);
write(fail,'A:');
for i:=1 to 2 do begin writeln(fail);
for j:=1 to 3 do write(fail,A[i,j],' ');
                 END;
writeln(fail);   writeln(fail);
writeln(fail,'F:',MAX(1),', ',MAX(2));
close(fail);
writeln('Dannie zapisani v fail "dannie.txt"...');
readln;
end.