[tb] tablica i rekord

witam,

mam taki problem, ponieważ muszę napisać program na podstawie poniższego zadania, ale wydaję mi się, że jest ono jakoś dziwnie sformułowane i nie bardzo wiem, co mam w nim dokładnie zrobić

Zadanie (pisownia oryginalna):
Napisz program, który zainicjuje typ rekordowy Rosoba o trzech polach im,naz:string[30]; int:integer, zainicjuje typ tablicowy ww rekordów. Procedura inicjuj(var t:tablica) wstawi wartości do pól. Procedura wypisz(var t:tablica) wypisze zawartość wszystkich rekordów. Procedura sortuj_naz(var tab:tablica) będzie sortować wg nazwisk, procedura sortuj_ind(var tab:tablica) będzie sortować wg numeru. Program wykonuje oba sortowania a w międzyczasie zatrzymuje się readln; żeby zobaczyć efekty.

co o tym myślcie?
jeżeli jest dobrze, to jakie sortowania wybrać?

ps: na razie mam tyle:

program inicjator;
uses crt;
type rosoba=record
     im:string[30];
     naz:string[30];
     int:integer;
     end;


procedure inicjuj(var t:tablica);
begin
clrscr;
writeln('WCZYTYWANIE DANYCH');
with t do
begin
write('Podaj imie: ');     readln(im);
write('podaj nazwisko: '); readln(naz);
write('podaj int: ');      readln(int);
end;end;

procedure wypisz(var t:tablica);
begin
writeln('WCZYTYWANIE DANYCH');
with t do
begin
writeln('Imię:' ,im);
writeln('Nazwisko:' ,naz);
writeln('Int:' ,int);
end;end;

A resztę (czyli jakieś pozostałe 90%) my Ci mamy napisać?

IHMO kod brzydki, brak wcięć. Gdzie masz deklarację typu tablica? Ogólnie to nie wysiliłeś się wcale.

a gdzie ta tablica

type
tab=array[1..30] of rosoba;

var t:tab;

to powinno być w bloku deklaracji a te narzędzi są ułomne bo pozwalają przypisać jedynie wartości do zmiennych a nie pól rekordu już nie mówiąc że chodziło o tablice z rekordem!

A reszta ... no nie napisze ale zagadnienie proste, a jeśli chodzi o sortowanie to można znaleŹć w literaturze algorytmy do różnych metod.