Вот что я написал.Подскажите что не правильно что надо доделать?
program zapisi;
type
pData=^Tdata;
TData=record{Tip zapisi o slugawem}
name:string[20];{imya}
oklad:longint;{oklad}
next:pdata;{Указатель на следующий элемент списка}
end;
function readdata(var rec:TData):integer;
var
s:string;{stroka vvoda}
p:integer;{nomer pozicii v stroke}
okladS:string[10];{stroka,sodergawaya oklad}
Error:inTeger;{kod owibki pri preobrazovanii stroki v 4islo}
begin
readln(s);
if s='' then
readdata:=-1
else
begin
p:=pos(' ',s);
if p = 0 then
readdata:=1
else
begin
rec.name:=copy(s,1,p-1);
delete(s,1,p);
okladS:=copy(s,1,255);
val(okladS,rec.oklad,error);
if error <> 0 then
readdata:=1
else
readdata:=0
end;
end;
end;
Var
Head:Pdata;{ukazatel' na golovu spiska}
tail:Pdata;{ukazatel' na xvost spiska}
P:PData;{ukazatel' na o4erednoi element spiska}
readresult:integer;{rezul'tat vvoda zapisi}
n:integer;{4islo slugawix}
premiya:longint;
Begin
{Vvod spiska zapisei}
writeln('Введите фамилии служащих и через пробел их оклад ');
writeln('Для окончания введите пустую строку ');
{na4al'nie ustanovki}
head:=nil;{spisok pust}
tail:=nil;{spisok pust}
n:=0;
{cikl do tex por,poka ne budet vvedena pustaya stroka}
repeat
{Цикл до тех пор, пока очередная строка не будет введена правильно}
repeat
new(p);{создать новый элемент списка}
readresult:=readdata(p^);{Ввести данные с клавиатуры и записать в новый элемент списка}
if Readresult=0 then {Если запись введена без ошибок}
{Добавить элемент в конец списка}
begin
if head=nil then
head:=p;
if tail <> nil then
tail^.next:=p;
tail:=p;
p^.next:=nil;
n:=n+1;
end
else if readresult=1 then
writeln('Ошибка! Повторите!');
{Вывод фамилий соотрудников}
writeln('Результат: ');
p:=head;
while p<>nil do
begin
writeln(p^.NAME,' ',p^.OKLAD,' ',PREMIYA);
p:=p^.next;
end;
end.