Задачи на обработку файлов с данными, списков и текстовых файлов

[Диана96]

Создайте файл, содержащий информацию об учениках:фамилию , класс, количество пропущенных часов.Найти ученика с наименьшим количеством пропусков.

Дан список студентов(Ф И О. группа), вывести на экран названия групп , где учатся 15 человек.

Дан символьный файл F. группы символов, разделенные пробелами (одним или несколькими ) и не содержащих пробелы внутри себя, будем называть словами. Удалить из файла однобуквенные слова и лишние пробелы . Результат занести в файл Н.

[ZX Spectrum-128]

1.

Type
 Uch=record
  Fio:string[200];
  Klass:string[3];
  Kpu:integer;
End;
Var
  F:file of uch;
  D,x:uch;
...
Assign(f,'fname.dat');
Reset(f);
Read(f,x);
Min:=x.kpu;
While not eof(f) do
 Begin
  If x.kpu<min then
    Begin
      Min:=x.kpu;
      D:=x;
    End;
 End;
Close(f);
Writeln(d.fio);