Обработка записей Опции

[xekzzz]

Помогите решить данную задачу? Заранее огромное спасибо!

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

Как мне поставить условие, чтобы был вывод по первой букве имени владельца?

Program nk;
uses crt;
 type
  inf=record
  den,god,med:integer;
  name,fam,klich,poroda,rods:string;
 end;

var f:file of inf;
m:array[1..100]of inf;
i,k:integer;

procedure BK;
begin
writeln('~~~~Банк данных кинологоВ~~~~');
 writeln;
 write('Введите количество кинологов  ->');
 readln(k);
 writeln;
for i:=1 to k do
  with m[i] do
     begin
       write('Введите имя владельца собаки ->');
       readln(name);
       write('Введите фамилию владельца собаки ->');
       readln(fam);
       write('Введите кличку собаки ->');
       readln(klich);
       write('Введите породу собаки ->');
       readln(poroda);
       write('Введите день рождения собаки ->');
       readln(den);
       write('Введите год рождения собаки ->');
       readln(god);
       write('Введите наличие родословной ->');
       readln(rods);
       write('Введите наличие медалей ->');
       readln(med);
       writeln;
     end;
    end;

Сообщение отредактировано: xekzzz - 26.05.2008 17:31

[Client]

for i:=1 to k do
  with m[i] do
     begin
       writeln(f1,name);
       writeln(f1,fam);
       writeln(f1,klich);
       writeln(f1,poroda);
       writeln(f1,den);
       writeln(f1,god);
       writeln(f1,rods);
       writeln(f1,med);
       writeln(f1);
     end;

f1-это текстовый файл