Задача со списками., Немного помощи Опции

[Rom1k]

Данные о соотрудниках содержат фамилию и оклад.Ввести данные с клавиатуры в список записей и вывести список для премирования на экран.премия=3 окладам.

Вот что я написал.Подскажите что не правильно что надо доделать?

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.

[volvo]

Подскажите что не правильно что надо доделать?

Оформить циклы (repeat/until в частности) как положено... У тебя сколько раз слово Repeat в программе встречается? Столько же раз должно упоминаться и слово until... Где эти упоминания?

Сообщение отредактировано: volvo - 11.04.2007 19:17