Ребят, помогите.
Плохо понимаю тему, но что-то постаралась сделать. Не работает. Исправьте, пожалуйста!
Задача:В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников, рост самого высокого и самого низкого ученика. Сколько учеников могут заниматься а баскетбольной секции, если рост баскетболиста должен быть больше 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.
Type rec_file = file of Uchenik;
Procedure InputData(var f: rec_file);
var Rec: Uchenik;
begin
repeat
write('Фамилия (пустая строка - для окончания ввода данных) : '); readln(rec.fam);
if rec.fam <> '' then begin
write('Имя : '); readln(rec.name;
write('Отчество : '); readln(rec.otch);
write('Рост [ 140 .. 250] см : '); readln(rec.rost);
write('Вес [40 .. 100] кг : '); readln(rec.massa);
write(f, rec);
end;
until rec.fam = '';
reset(f); { Переоткрываем файл для чтения, чтобы все записи в него записались }
end;
...
Assign(my_file, 'uchenik.dat'); Rewrite(my_file); { <--- Создаем новый файл }
InputData(my_file); { <--- и заполняем его ... }
...
К сожалению, программы нужно писать именно по моему типу, так как InputData мы еще не проходили. У меня есть одна задача и по ней мне нужно составить свою. Изначально данная задача тожен не работает. Не могли бы вы отредактировать все-таки мою задачу с созданием того файла? А насчет синтаксических ошибок, я не могу их найти. Проблема в обозначениях?