тип:запись что дальше ?

[mouse697]

Вывести на экран следующие сведения:
1. Сведения о таксопарках, не имеющих каких-либо видов автомобилей.
2. Вид автомобиля, который имеется в таксопарке в наибольшем количестве.
3. Процент каждого вида автомобиля от общего количества.

примерный исходник внизу а что делать дальше ?

program lab5pr1;
uses crt;
type
 autopark=record
 name:string[10];
 legh:byte;
 gazel:byte;
 gruzov:byte;
end;
var t:text;
 a:array[1..10] of autopark;
 f,n:string;
 i,j,k:integer;
 BEGIN
  readln(n);
  autopark.name:=n;
  assign(t,'proekts\lab5.txt');
  rewrite(t);
  clrscr;
  reset(t);
  j:=1;
  while not(eof(t)) do
   begin
   a[j].name:=copy(f,1,11);
   end;
readkey;
end.