program wzkonujący tablicę dwuwymiarową , z zapisaniem w pliku i elementami max i min

program tabl;
uses CRT;
type tab=array[1..20,1..20] of integer;
var A:tab;
max,min:integer;
var plik:text;
procedure czytaj(var A:tab);
var i,j:integer;
begin
randomize;
For i:=1 to 20 do
For j:=1 to 20 do
A[i,j]:=random(20)
end;
procedure wypisz (var A:tab);
var i,j:integer;
begin
For i:=1 to 20 do
For j:=1 to 20 do
writeln(A[i,j]);
end;
procedure elementy (var A:tab; var max,min:integer);
var i,j:integer;
begin
min:=A[1,1];
max:=A[1,1];
For i:=2 to 20 do
begin
If A[i,j]>max then max:=A[i,j];
If A[i,j] end;
end;
procedure zapisz(var A:tab);
var min,max:integer;
begin
assign(plik,'plik.txt');
rewrite(plik);
writeln(plik,min);
writeln(plik,max);
close(plik);
end;
begin
clrscr;
czytaj(A);
wypisz(A);
elementy(A,min,max);
zapisz(A);
writeln('max=' ,max);
writeln('min=', min);
readln;
repeat until keypressed;
end.