Динамические данные Опции

[Child of Bodom]

Люди помогите плиз. Срочно надо. Я не понял динамические данные вообще. А мне надо тут прогу сделать. подскажите пожалуйста пару процедур. Вот тут условие: Дан массив записей, содержащий данные: ФИО, стаж работы, ставка. Создать упорядоченный по ФИО список, не перемещая записи. И вот что я смог из себя выжать:

Код

Program Spisok;
const n=5;
uses crt;
type zapis=record
     Fio:string[20];
     Stavka,Stazh:integer;
     end;
     Mas=array [1..n] of zapis;
     uk=^mas;
var a:mas;
    s:zapis;
    i:integer;
    z:uk;
Procedure vvod (var s:zapis;var a:mas);
begin
for i:=1 to n do begin
Writeln ('Введите фамилию');
readln (s.Fio);
writeln ('Введите стаж работы');
readln (s.Stazh);
writeln ('Введите ставку');
readln (s.Stavka);
a[i]:=s;
end;
end;
Procedure sort (var a:mas;var s:zapis);
var i:integer;
    min:string;
    beg:uk;
begin
for i:=1 to n do begin
min:=a[1];
if a[i].Fio<min then
min:=a[i].fio;

Знаю что тут надо с полем next похимичить. Поможете? на всякий случай и сам файлик скину паскалевский

[мисс_граффити]

Что именно ты не понял? Давай разбираться по шагам:
1) Создаем массив (ничего динамического)
2) Создаем список, данные берем из массива. (как создавать список ты говоришь, что понял. а в чем тогда проблема?)
3) Сортируем список (есть в FAQ)

на каком этапе трудности?

[Child of Bodom]

Что именно ты не понял? Давай разбираться по шагам:
1) Создаем массив (ничего динамического)
2) Создаем список, данные берем из массива. (как создавать список ты говоришь, что понял. а в чем тогда проблема?)
3) Сортируем список (есть в FAQ)

на каком этапе трудности?

Код

Program Spisok;
const n=5;
uses crt;
type zapis=record
     Fio:string[20];
     Stavka,Stazh:integer;
     end;
     Mas=array [1..n] of zapis;
     uk=^mas; {Здесь вот правильно ли?}
var a:mas;
    s:zapis;
    i:integer;
    z:uk;
Procedure vvod (var s:zapis;var a:mas);
begin
for i:=1 to n do begin
Writeln ('Введите фамилию');
readln (s.Fio);
writeln ('Введите стаж работы');
readln (s.Stazh);
writeln ('Введите ставку');
readln (s.Stavka);
a[i]:=s;
end;
end;
Procedure sort (var a:mas;var s:zapis);
var i:integer;
    min:string;
    beg:uk;
begin
for i:=1 to n do begin
min:=a[1];
if a[i].Fio<min then
min:=a[i].fio;

И вот теперь не знаю что писать. Если присваивать beg'у min или a[i] то произойдет расхождение в типах. Поэтому и не знаю что теперь, а так хочу отсортировать не помню какой вообщем:ищу наименьшее, и делаю его первым ну присваиваю ему beg? потом нашел следующий min? на него ссылку next и теперь beg'ом он становится. А вот как то вот сделать???