Помогите исправить ошибку в задаче

[Vladislav_87]

7.Создать программный модуль,который позволяет выполнять запись
и чтение информации из списка и поместить его в библиотеку TPU.Использовать этот
модуль при написании программы,которая создает список А и вводит в него с
клавиатуры последовательность дейсвительных чисел.В процессе чтения
информации из списка А числа округляються до целых,записываються в список В.
Информация,содержащаяся в списках А и В распечатываеться на экране.

Program_kursova;
   uses crt,list;
   type
     Preal = ^real;                          { pointer na real }
     Pint = ^ integer;                      { pointer na integer }
   Var i,n:integer;
   s1,s2:Plist;
pr:preal;
hh:pint;
begin
  clrscr;                                         { Clear Scresn }
initlist(s1);                                   { Inletattiacia lista A }
initlist(s2);                                  { Inletattiacia lista B }
writeln(‘Vvedit kilkist elementiv spuska’);
readln(n);                                     { n = kilkist elementiv lista }
writeln(‘Vvedit sami elementu:’);
for i:=1 to n do
begin
    pr:=new(PReal);                 { Vudilennya pamati dlya }
 elementu ) 
       readln(pr^);                     { 3apevnennya elementu }
 klaviatyru )
       push(s1,pr);                      { 3apevnennya lista }
   end;
   writeln(‘Stack At’);              { Vuvedennya Lista A }
   while s1<>nil do
   begin                                       { yakscho s1=nil to list pystuy }
       pr:=pop(s1);                         { dutannya & lista }
       hh:=new(Pint);                    { Vudilennya pamati  }
       hh^:=round(pr^);                   { Qkruglennja }
       push(s2,hh);                            { 3apevnennya lista  B }
       writeln( ‘ ( ‘,pr^:7:3,’ ) ‘);       { vuvedennya  lista A}
   end;

   writeln(‘List B’);                          { vuvedennya lista B }
   while s2<>nil do                           { poku list ne pysyuy rebutu }
   begin                                           { Gistavannya elementiv z lista }
       hh:=pop(s2);
       writeln( ‘ ( ‘,hh^:3,’ ) ‘ );
   end;
   readln;
end.

-----------------------

unit list;
interface
type
 Plist = ^Tlist;                            {  pointer na list  }
 Tlist =record                            {  zapus lista  }
   info: Pointer;                           {  pointer na informaciy  }
   next: Plist;                              {  pointer  na nastupniy zapus  } 
end;
    procedure initlist (var s:plist);      {  Inicializacia spusky  }
    procedure push (var s:plist;p:pointer);     {  Vstsvka dannyh  }
    function pop(var s:Plist) : pointer;       {  vuvedennya z spusku  }   
implementation
procedure initlist (var: s :plist);
begin
    s:=nil;                                                     {  Inicializacia lista  }
end;
procedure push(var s:plist;p:pointer);
var n:plist:
begin
    if s=nil then                                     {yaks4o list pustuy }
    begin
      s:=new(Plist);                                  {  Vudilennya pamati  }
        s^.info:=p;                                      {  Vnesrnnya informacii  }
        s^.next:=nil;                                   {  inicializacia zminnoi  } 
    end else
    begin
        n:=new(Plist);                               { Vudilennya pamati  }
        n^.info:=p;                                  {  Vnesrnnya informacii  }
        n^,next:=s;                                     {  zapus novogo elementu  }
        s:=n;                                            {  Zvyazok novogo zapusy z ostannim }
    end;
end;
function pop(var s:Plist):pointer;          {  Vudilennya informacii z listu}
var r:pointer;
p:Plist;
begin
    p:=s;
    if p<>nil then                                    {  yaks4o list ne pusty  }
    begin
        if p^.next<>nil then begin
        while p^.next^.next<>nil do
        begin
            p:=p^,next;
    end;
        r:=p^.next^.info;
        p^.next:=nil;
      end else
      begin
          r:=p^.info;
          s:=nil;
      end;
    end else
    begin
        r:=nil;
    end;
pop:=r;
end;
end.

[Stilet]

И в чем проблема?

[Vladislav_87]

Stilet - ошибки

[Stilet]

Я в курсе что ошибки, но какие??
Это ты должен сказать.

Вот хотябы название программы либо убери либо удали из нее подчерк.
в описании initlist после var двоеточие удали.

У тебя чисто синтаксические ошибки - вот и пройдись по коду внимательнейшим образом и подредактируй ненужные помарки.

[programmist8]

Я полностью согласен с Stilet.