требуется помощь записи и типизированные файлы в паскале

[GaJIbI4]

Задача такая создать файл с фамилией именем отчеством и годом рождения студентов, выбрать самого старшего студента. Моя прога выводит не самого младшего а всех разберитесь пожалуйста

type
ANKETS=RECORD
FAM,IM,OT:string[20];
G:integer;
end;
Spisok=FILE OF ANKETS;

var
SPI:SPISOK;
AN:ANKETS;
D:array [1..3] of spisok;
B:integer;
i,C:integer;
begin
assign(SPI, 'D:\BID3D.DAT');
rewrite(SPI);
for I:=1 to 3 DO
begin
With AN do
begin
readln(FAM);
readln(IM);
readln(OT);
readln(G);
end;
write(SPI,AN);
end;
close(SPI);
RESET(SPI);
B:=2000;

for I:=1 to 3 do
begin
read(SPI,AN);
if B<=AN.G then B:=AN.G;
if AN.G<>B then writeln('    ',AN.FAM,'    ',AN.IM,'    ',AN.G);
end;
close(SPI);
end.

[Serge_Bliznykov]

выбрать самого старшего студента.

если учесть, что старших может быть несколько (несколько с одинаковым годом рождения), то прийдётся либо заводить массив для их хранения, либо (более предпочтительно) - проходить по файлу с данными два раза - первый раз ищем минимальный год (самый старший), второй раз - банально выводим всех студенов, у которых год равен найден минимальному.

если же допустить, что достаточно вывести только одного "старшого", то код упрощается до банальности:

var
  MaxStud : ANKETS;
....

  Reset(SPI);
  MaxStud.G := MaxInt;
  while Not Eof(SPI) do begin
     Read(SPI,AN);
     if AN.G<MaxStud.G then MaxStud := AN;
  end;
  {проверили -вдруг записей вообще нет...}
  if MaxStud.G <> MaxInt then
     writeln('    ',MaxStud.FAM,'    ',MaxStud.IM,'    ',MaxStud.G);

[GaJIbI4]

вывести всех студенов, у которых год равен найденому минимальному.
так будет?, чёт неработает

while Not Eof(SPI) do
begin
Read(SPI,AN);
while  MaxStud.G = AN.G do
writeln('    ',MaxStud.FAM,'    ',MaxStud.IM,'    ',MaxStud.G);
end;

[Serge_Bliznykov]

GaJIbI4, без обид, но, похоже, Вы не понимаете, что Вы пишете в коде ;-(
Ну какой же WHILE ??? "выполнять пока" ?! ;-(
надо WHILE ... do заменить на IF ... THEN

Вот, например, можно так:

var
  GodMin : Integer;
begin
...
  Reset(SPI);
  GodMin := MaxInt;
  {первый цикл - проходим по всем записям, 
    ищем минимальный год и сохраняем его в GodMin}
  while Not Eof(SPI) do begin
     Read(SPI,AN);
     if AN.G<GodMin then GodMin := AN.G;
  end;

  {а вот и второй цикл - вывод данных}
  Seek(SPI,0); { <- установим указатель на начало файла}
  while Not Eof(SPI) do begin
     Read(SPI,AN);
     if AN.G=GodMin then 
        writeln('    ',MaxStud.FAM,'    ',MaxStud.IM,'    ',MaxStud.G);
  end;