Помогите сделать задачи со списком.

[aleksandrdss]

(1). Сформировать список группы студентов, каждая запись которого имеет следующую структуру: фамилия, имя, отчество, пол. Напечатать список студентов одного роста.
(2). Сформировать массив сведений о наличии учебников в библиотеке следующей структуры: автор, название, шифр книги, количество экземпляров, год издания. Получить список новых изданий.

(1). Ученики зашифровывают свои записи, записывая все слова наоборот. Составить программу, зашифровывающую и расшифровывающую сообщение.
(2). Слова в тексте разделены запятой. Подсчитать среднюю длину слов.

[maladoy]

список группы студентов, каждая запись которого имеет следующую структуру: фамилия, имя, отчество, пол.

Напечатать список студентов одного роста.

и откуда же прога рост узнает и один это какой?
к 3 задаче:

function shifr(s:string):string;
var i:integer;
begin
shifr:='';
for i:=length(s)  downto 1 do
shifr:=shifr+s[i];
end;

функция при первом вызове шифрует а при втором расшифровывает
к 2 задаче:

program biblioteka;
uses crt;
const N=8;
type
 book=record
        code:string;
        avtor:string;
       name:string;
		god:integer;
		kolvo:integer;
    end;
var bibl:array[1..n] of book;
  i integer;
  new:integer;
  begin
clrscr;
  new:=0;
 for i:=1 to n do begin
writeln('vvedite kod:');
readln(bibl[i].code);
writeln('vvedite avtora:');
readln(bibl[i].avtor);
writeln('vvedite nazvanie:');
readln(bibl[i].name);
writeln('vvedite god:');
readln(bibl[i].god);
if bibl[i].god>new then new:=bibl[i].god;
writeln('vvedite kol-vo:');
readln(bibl[i].kolvo);
end;
writeln('---------------------');
writeln('spisok novyh:' ); 
for i:=1 to n do 
if bibl[i].god:=new then begin
write('cod:');
writeln(bibl[i].cod);
write('avtor:');
writeln(bibl[i].avtor);
write('nazvanie:');
writeln(bibl[i].name);
write('god izdaniya:');
writeln(bibl[i].god);
write('kolichestvo:');
writeln(bibl[i].kolvo);
writeln('-----------------');
end;
readln;
end.

К 4 задаче

program zpt;
uses crt;
var s:string;
i:integer;
sred:real;
kolvo:integer;
begin
clrscr;
kolvo:=0;
writeln('vvedi stroku')
readln(s)
for i:=1 to length(s) do begin
if s[i]:=',' then inc(kolvo); 
sred:=(length(s)-kolvo)/(kolvo+1);
writeln('---------------------');
writeln('v stroke ',s);
writeln('srednyaya dlina slova:'sred:6:4);
readln;
end;

[Gonzo]

Что-то не совсем ясно с чем нужно работать: со списком или массивом записей.