ЛОС[Линейный Однонаправленный Список], Исправьте ошибку...) Опции

[D1ma]

Помогите исправить ошибки, пожалуйста
Задача:Cоставить ЛОС. Вывести максимальное значение нечетной компоненты(позиции)

Код

Program Laba;
uses crt;
type
     link=^rs;
     rs=record
     val:word;
     lnk:link;
end;
var
a,b:link;
i:word;

Procedure p1(var a:link);
var b:link;
i:integer;
begin
a:=nil;
i:=1;
while i<>-1 do begin
readln(i);
new(b);
b^.val:=i;
b^.lnk:=a;
a:=b;
end;end;

Procedure p2(a:link);
var
i:integer;
n:integer;
begin
i:=0;
n:=0;
while a<>nil do begin
n:=n+1;
if (A^.val>i) and (n mod 2<>0) then i:=A^.val;
A:=A^.lnk;
end;
end;

begin
clrscr;
readln(i);
p1(b);
p2(a);
write(i);
end.

Сообщение отредактировано: D1ma - 21.03.2009 19:33