Найти максимальное из трёх чисел

 program zadanie2;
uses crt;
const n=5;
var
a,b,c:array [1..n]of integer;
     x,y,z,max:real;
     function SredMas(p:array[1..n] of integer;k:integer):integer;
     var
     i :integer;
     s: real;
     begin
   s:=0;
   for i:=1 to n do
   s:=(s+p[i])/5;
   SredMas:=s;
   end;
begin
clrscr;
   writeln ('Введите массив');
 readln(a);
 for i:=1 to n do
writeln('Введите массив');
readln(b);
for i:=1 to n do
  writeln('Введите массив');
readln(c);
for i:=1 to n do
 x:=SredMas(a,m);
  y:=SredMas(b,n);
   z:=SredMas(c,q);
  if (x>y) and (x>z)then x:=max;
   if (y>x) and (y>z)then y:=max else max:=z;
 
end.

Program zadanie3;
uses crt;
type str=record
fam:string[5];
 pol:string[5];
dr:string[8];
rost:real;
b1,b2,b3,b4:2..5;
stipendia:real;
mestogit:string[10];
end;
var Tbl:array[1..25] of string;
I,n:1..25;
begin
clrscr;
write('введите число студентов в группе:');
readln(n);
writeln('Введите фамилии,дату рождения,пол,рост,оценки, получаемую стипендию, места жительства студентов');
writeln('оценки вводить через пробел');
for I:=1 to n do
with tbl[I] do
begin
writeln('Введите пол студента');
readln(pol);
end;
for I:=1 to n do
begin
with tbl[I] do
begin
if (b1>=3) and (b2>=3) and(b3>=3) and(b4>=3) then
writeln('Пол студента',I:=2,'-ого студента=');
end;
end;
end.