Задача на списки

Type
  Ukazatel = ^Zapis;
  Zapis = Record
       Data : integer;
       Counter: integer;
       Next : Ukazatel ;
  End;
Var
  line,line2,head : Ukazatel;
  digit,amount,max : integer; //Значение информационной части элемента списка
Begin
  Head := Nil; //Список пуст
  Writeln ('Введите элементы списка(целые числа). Конец ввода 0');
  Read (Digit);
if Digit <> 0 then //Вставляем первый элемент списка
Begin
   New(line);
   line^.Next := Nil;
   line^.Data := Digit;
   line^.Counter:= amount;
   amount:=1;
   Head := line;
   Read (Digit);
   while Digit<>0 do
    Begin
       New(line^.Next); //Вставляем элемент в конец списка
       line:= line^.Next;
       amount:= amount+1;
       line^.Next := Nil;
       line^.Data := Digit;
       Read(Digit);
    end;
end;
line2:=Head; 
max:= 0;
line:=Head;//возвращаем указатель в голову списка
while line<>Nil do 
  Begin
    Write(line^.Data, ' ');//вывод списка
    line := line^.Next;
  end;
    Writeln;
    line:=Head;//возвращаем указатель в голову списка
    //Поиск максимального элемента
    while line<>Nil do 
    Begin
      if max < line^.Data then
        begin
          max:= line^.Data;
          line:= line^.Next;
        end
      else line:= line^.next;
    end;
    line:=Head;//возвращаем указатель в голову списка
    //Удаляем четные записи
    while (line<>Nil) and (Digit mod 2 = 0) do 
    Begin
          line2:=line;
          line:=line^.Next; 
    end;
          line2^.Next:= line^.Next;
          Dispose(line);
          line:=Head;//возвращаем указатель в голову списка
while line<>Nil do 
  Begin
    Write(line^.Data, ' ');//вывод списка с удаленными
    line := line^.Next;
  end;
line:=Head;//возвращаем указатель в голову списка
Writeln();
writeln('Максимальный элемент: ', max);
Writeln('Количество элементов списка: ', amount);//количество элементов списка
end.