Требуется занести данные с клавиатуры в упорядоченный по фамилиям список записей и вывести список для премирования на экран.Премия = 3 оклада.
Вывести-то вывел,а как их упорядочить,я совсем не понимаю,помогите,заранее благодарен!!!
program l1;
type
PData = ^TData;{tip ukaz na zapis'}
TData = record
fio:string[20];{imya}
Oklad,Prem:longint;{oklad}
next:PData;{ukaz na sled el spiska}
end;
Var
Head:PData;{ukaz na golovu}
Tail:Pdata;{ukaz na xvost}
P,m,d:PData;{ukaz na o4erednoi el spiska}
I,N:integer;{4islo slugawix}
flag:boolean;
Begin
Write('Vvedite ko-vo sotr ');
ReadLn(N);
head:=nil;
Tail:=nil;
For i:=1 to n do
begin
new(p);
write('Vvedite familiju ',i,' sotr ');
ReadLn(p^.fio);
Write('Vvedite oklad ',i,' sotr ');
ReadLn(p^.oklad);
if Head = nil then
Head:=p;
if Tail<>nil then
Tail^.next:=p;
Tail:=p;
p^.next:=nil;
n:=n+1;
end;
WriteLn('Rezultat: ');
p:=head;
while p<>nil do
begin
p^.prem:=p^.oklad*3;
WriteLn(i,' ',p^.fio,' ',p^.oklad,' ',p^.prem);
p:=p^.next;
end;
End.
