Записи и файлы, срочно нужна помощь! Опции

[gryzlik]

Ребят, помогите.
Плохо понимаю тему, но что-то постаралась сделать. Не работает. Исправьте, пожалуйста!

Задача:В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься а баскетбольной секции, если рост баскетболиста должен быть больше 170 см?

Type Uchenik=record
       fam: string[15];
       name: string[15];
       otch: string[20];
       rost:140..250;
       massa:40..100;
       end;
var a:array[1..100] of Uchenik;
    fin,fout:text;
    i,j:integer;
procedure Rost(a[i].rost:integer;var n:integer;i,min,max,Sr,k:integer);
begin
  S:=0;max:=0;min:=250;k:=0;
  for i:=1 to n do begin
  S:=S+a[i].rost;
  Sr:=S/n;
  if a[i].rost>170 then k:=k+1;
  if a[i].rost>max then max:=a[i].rost;
  if a[i].rost<min then min:=a[i].rost;
  writeln('Srednii rost=',Sr);
  writeln('Samyi vysokii rost=',max,'u uchenika',a[i].fam,a[i].name,a[i].otch);
  writeln('Samyi nizkii rost=',min,'u uchenika',a[i].fam,a[i].name,a[i].otch);
  writeln('Basketbolom mogut zanimatsa',k,'chelovek);
end;
BEGIN
assign(fin, 'stud.pas');
resert(fin);
i:=0;
repeat i:=i+1:
with a[i] do
readln(fin,fam,name,otch,rost,massa);
until eof(fin);
close(fin);
Rost;
END.

Программа вообще не работает. Кроме того, предварительно, я полагаю, нужен файл stud.pas в той же папке. Как его создать?(хотя бы одну строку!). Я не понимаю. Нужно же ,чтобы имя, фамилия, рост и т.п. стояли как бы под одним i.