program tablica jednowymiarowa wczytująca liczby nieparzyste , element max i min i zapisanie w pliku

program tabl;
uses CRT;
type tab=array[1..20] of integer;
var A:tab;
max,min:integer;
var plik:text;
procedure czytaj(var A:tab);
var i:integer;
begin
For i:=1 to 20 do
A[i]:=(2*i)-1
end;
procedure wypisz (var A:tab);
var i:integer;
begin
For i:=1 to 20 do
writeln(A[i]);
end;
procedure elementy (var A:tab; var max,min:integer);
var i:integer;
begin
min:=A[1];
max:=A[1];
For i:=2 to 20 do
begin
If A[i]>max then max:=A[i];
If A[i] 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.