Найти максимальный элемент списка

Program A1;
Uses Crt;
Type
    Link1=^MyRec;
    MyRec=Record
          Info:Integer;
          Next:Link1;
          end;
Var
   A:Link1;
{Задание №1. Создание списка.}
Procedure Sozdanie(Var A:Link1);
Var
   M,I:Integer;
   T:Link1;
Begin
     New(T);
     I:=1;
     T:=A;
     A^.Next:=Nil;
     Write('Введите ',I,' число списка (конец - 0): '); Readln(M);
     While M<>0 do begin
     New(T^.Next);
     T:=T^.Next;
     T^.Info:=M;
     T^.Next:=Nil;
     I:=I+1;
     Write('Введите ',I,' число списка (конец - 0): '); Readln(M);
     end;
end;
{Задание №2. Вывод списка на экран.}
Procedure Vyvod(Var A:Link1);
Var
   T:Link1;
Begin
     T:=A;
     Writeln('Содержимое списка:');
     While T^.Next<>Nil do begin
     T:=T^.Next;
     Write(T^.Info,' ');
     end;
     Writeln;
     Dispose(T);
     Write('Конец ввода. Нажмите Enter для продолжения...');
end;
{Задание №3. Максимальный элемент списка.}
Procedure MaxElem(A:Link1);
Var
   T:Link1;
   Max:Integer;
Begin
     T:=A^.Next;
     Max:=T^.Info;
     While T^.Next<>Nil do begin
     If T^.Info>Max then Max:=T^.Info;
     T:=T^.Next;
     end;
     Writeln('Максимальный элемент списка: ',Max);
end;
Begin
     ClrScr;
     Writeln('Количество свободной динамической памяти: ',MemAvail);
     Sozdanie(A);
     ClrScr;
     Vyvod(A);
     Writeln;
     Readkey;
     Writeln('------------------------------------------------------------------------------');
     MaxElem(A);
     Writeln;
     Readkey;
End.

procedure poisk (s:spisok);
var max:integer;
 buf:spisok;
begin
buf=s;
max:=buf^.element;
while buf<>nil do
begin
 if buf^.element>max then max:=buf^.element;
buf:=buf^.next;
end;
write ('max=',max);
end;

{Задание №3. Максимальный элемент списка.}
Procedure MaxElem(A:Link1);
Var
   T:Link1;
   Max:Integer;
Begin
     T:=A;
     Max:=T^.Info;
     While T<>Nil do begin
     If T^.Info>Max then Max:=T^.Info;
     T:=T^.Next;
     end;
     Writeln('Максимальный элемент списка: ',Max);
end;