задача по Файлам

[zzzarazzza]

Дан список групп, количество учащихся в этих группах, название специальности. По введённой группе вывести о ней информацию. Найти группу с максимальным количеством учащихся.

напишите пожалуйста программный код

[Stilet]

А сам что ничего ничего написать не можешь??

[aleks15]

а ты хоть какие ни то наброски сделал

[zzzarazzza]

ну вот.... тока это написала


program la;
uses crt;
type
spisok=record
kol:integer;
spec:string;
gruppa:string;
end;
var f:text;
s:string;
gryp:string;
i, max,code,n:integer;
a:array [1..4] of spisok;
begin
clrscr;
assign(f,'c:\f.TXT');
reset (f);
while not (eof(f)) do
begin
readln(f,s);
writeln(s);
end;
begin
writeln('vvedite nyjnyu gryppy');
readln(gryp);
begin
for i:=1 to 4 do
writeln;
if a[i].gruppa=gryp then
writeln('Gruppa ', a[i].gruppa);
writeln('kol-vo ychenokov ', a[i].kol);
writeln('specialnost ', a[i].spec);
end; end;
writeln;

{ begin
max:=a[1].kol;
for i:=1 to 4 do
begin
if max<a[i].kol then
writeln('maximalnoe kol-vo chelovek v gruppah: ');
for i:=1 to 4 do
begin
if a[i].kol=max then
writeln (a[i].gruppa, 'kol=', a[i].kol, 'spec=', a[i].spec);
end;
end;
end; }


close(f);
readkey;
end.