программирование задач с применением записей и файлов

[ЯН_КА]

1.с применением записей
const n=300;
type
zapis=record
key:integer;
blok:array[1..99] of 'a'..'z'
end;
tabl=array[1..n] of zapis; (в таблице записи имеют различные ключи)
Написать программу, использующую процедуру por(t),упорядочивающую записи таблицы t по возрастанию их ключей.
2. с применением файлов
Записать в файл информацию о 1000 студентах вуза: <фамилия>, <пол>, <возраст>, <курс>. Написать программу, которая вводит эту информацию в файл и печатает для ка-ждого курса самую распространенную женскую фамилию для студенток заданного возраста.

Добрый день всем!помогите,пожалуйста,решить задачки!

[ЯН_КА]

помогите,пожалуйста((

[Sazary]

Процедура как-ниубдь так:

procedure por(var t : tabl);
var i,j,k : integer;
tmp : tabl;
begin
for i:=1 to n-1 do
 begin
 k := i;
 for j:=i+1 to n do
  if t[j].key<t[k].key then k := j;
 tmp := t[k];
 t[k] := t[i];
 t[i] := tmp;
 end;
end;

Для второй показывайте наработки.

[ЯН_КА]

благодарю Вас!