Сортировка,Рекурсия

uses crt;
type mas=array[1..50]of integer;
var a:mas;
    n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Max(n-1);
  if a[n]<w then Max:=w
  else Max:=a[n]
 end
else Max:=a[1]
end;
 
begin
clrscr;
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
write('max=',Max(n));
readln
end.

uses crt;
type massiv=array [1..5000] of integer;
var
  x:massiv;
  i,n:integer;
procedure sort(l,r:integer);
var
  i,j,x1,y1,m: integer;
begin
  i:=l;
  j:=r;
  m:=round ((l+r)/2);
  x1:=x[m];
  repeat
    while x[i]<x1 do inc(i);
    while x[j]>x1 do dec(j);
    if i<=j then 
     begin
      y1:=x[i];
      x[i]:=x[j];
      x[j]:=y1;
      inc(i);
      dec(j);
     end;
  until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;
 
begin
clrscr;
randomize;
write('Введите размер массива не более 5000 n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
  begin
   x[i]:=random(50)-10;
   write(x[i],' ');
  end;
writeln;
sort(n,1);
writeln('Массив после сортировки: ');
for i:=1 to n do
write(x[i],' ');
readln;
end.

type
  rec=record
    Sur:string[20];
    P1,P2,P3:real;
    Place:integer;
  end;
var
  a,b:array[1..1000]of rec;
  i,j,max,pl:integer;
begin
  writeln('Ââåäèòå êîëè÷åñòâî ñïîðòñìåíîâ...');
  readln(max);
  for i:=1 to max do
  begin
    write('Ôàìèëèÿ: ');
    readln(a[i].Sur);
    write('Ïåðâàÿ ïîïûòêà: ');
    readln(a[i].P1);
    write('Âòîðàÿ ïîïûòêà: ');
    readln(a[i].P2);
    write('Òðåòüÿ ïîïûòêà: ');
    readln(a[i].P3)
  end;
  {âûïîëíÿåì ñîðòèðîâêó ìàññèâà}
  for i:=1 to max do
    for j:=i to max do
      if (a[i].P1+a[i].P2+a[i].P3)<(a[j].P1+a[j].P2+a[j].P3) then
      begin
        b[i].Sur:=a[i].Sur;
        a[i].Sur:=a[j].Sur;
        a[j].Sur:=b[i].Sur;
        b[i].P1:=a[i].P1;
        a[i].P1:=a[j].P1;
        a[j].P1:=b[i].P1;
        b[i].P2:=a[i].P2;
        a[i].P2:=a[j].P2;
        a[j].P2:=b[i].P2;
        b[i].P3:=a[i].P3;
        a[i].P3:=a[j].P3;
        a[j].P3:=b[i].P3
      end;
  {âûâîäèì âñåõ ñïîðòñìåíîâ}
  writeln('Òàáëèöà ðåêîðäñìåíîâ:');
  for i:=1 to 3 do
    writeln(a[i].Sur,' ',a[i].P1,' ',a[i].P2,' ',a[i].P3,' ',i,' ìåñòî')
end.

rec=record
    Sur:string[20];
    P1,P2,P3,sm:real;
    Place:integer;
  end;
  .....................
var x:rec;
................  
for i:=1 to max do
  begin
    write('Фамилия: ');
    readln(a[i].Sur);
    write('Первая попытка: ');
    readln(a[i].P1);
    write('Вторая попытка: ');
    readln(a[i].P2);
    write('Третья попытка: ');
    readln(a[i].P3)
    a[i].sm:=a[i].p1+a[].p2+a[i].p3;  
    end;  
......................
for i:=1 to max do
for j:=i to max do
if a[i].sm<a[j].sm then
 begin
  x:=a[i];
  a[i].:=a[j];
  a[j]:=x;
 end;

type
  rec=record
    Sur:string[20];
    P1,P2,P3,res:real;
    Place:integer;
  end;
var
  a:array[1..1000]of rec;
  temp:rec;
  i,j,max:integer;
begin
  writeln('Ââåäèòå êîëè÷åñòâî ñïîðòñìåíîâ...');
  readln(max);
  for i:=1 to max do
  begin
    write('Ôàìèëèÿ: ');
    readln(a[i].Sur);
    write('Ïåðâàÿ ïîïûòêà: ');
    readln(a[i].P1);
    write('Âòîðàÿ ïîïûòêà: ');
    readln(a[i].P2);
    write('Òðåòüÿ ïîïûòêà: ');
    readln(a[i].P3);
    a[i].res:=a[i].P1+a[i].P2+a[i].P3;
  end;
  {âûïîëíÿåì ñîðòèðîâêó ìàññèâà}
  for i:=1 to max do
    for j:=i to max do
      if (a[i].res)<(a[j].res) then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
  {âûâîäèì âñåõ ñïîðòñìåíîâ}
  writeln('Òàáëèöà ðåêîðäñìåíîâ:');
  for i:=1 to 3 do
    if i<=max then
      writeln(a[i].Sur,' ',a[i].P1,' ',a[i].P2,' ',a[i].P3,' ',i,' ìåñòî')
end.