Помогите найти ошибку

[NeXuLoN]

Алгоритм должен создать второй файл и в него записать ту специальность (и автора тоже) по каторой больше всего книг.

uses crt;
type knigi=record
 avtor:string[40];
 nazvanie:string[80];
 god_izdania:string[4];
 spechialnost:string[40];
end;
var x:array[1..100]of knigi;
 l,k,n,i:integer;
 f,t:file of knigi;
begin
clrscr;
 write('введите количесто книг');
 readln(n);
 assign(f,'katalog1.txt');
 rewrite(f);
 for i:=1 to n do
 with x[i] do begin
 writeln('введите автора');
 readln(avtor);
 writeln('введите название');
 readln(nazvanie);
 writeln('введите год издания');
 readln(god_izdania);
 writeln('введите специальность');
 readln(spechialnost);
 write(f,x[i]);
end;
 close(f);
 reset(f);
 assign(t,'katalog2.txt');
 rewrite(t);
 i:=1;
 while not eof (f) do begin
 for i:=1 to n do begin
 read(f,x[i]);
 k:=0;l:=0;
 if (x[i].spechialnost='m')then k:=k+1 else l:=l+1;
end;
 if k>l then
 for i:=1 to n do begin
 read(f,x[i]);
 if (x[i].spechialnost='m') then write(t,x[i])
 else
 for i:=1 to n do begin
 read(f,x[i]);
 if (x[i].spechialnost='a') then write(t,x[i]);
end;end;end;
 close(f);close(t);
 reset(t);
 i:=1;
 while not eof (t) do begin
 read(t,x[i]);
 writeln(x[i].spechialnost,x[i].avtor);
 i:=i+1;
end;
 readln;
end.

Заранее премного благодарен.

[Consol]

сильно заумно сделано, напиши лучше сколько у тебя специальностей и какие они

[kakawkin]

и какого цвет красный ?
РЕЖЕТ ГЛАЗА! наврядли ктото будет спокойно смотреть.

[NeXuLoN]

Файл « Каталог книг » ( Создайте этот файл ).
Структура записи:
- Автор (40 знаков);
- Название (80 знаков);
- Год издания (4 знака);
- Специальность (40 знаков);
Создайте файл каталог книг. Найдите специальность, по которой имеется наибольшее число книг. Специальности 2 можно любые, главное чтобы работал.

[.Phoenix]

type knigi=record
      avtor:string[10];
      nazvanie:string[10];
      god_izdania:string[4];
      spechialnost:string[2];
      end;
var x:array[1..100]of knigi;
    l,k,n,i:integer;
    f,t:file of knigi;
begin
{Запись в кататлог1 список авторов}
write('Vvedite kol-vo knig: '); readln(n);
assign(f,'C:\katalog1.txt');
rewrite(f);
for i:=1 to n do
with x[i] do begin
writeln('Vvedite avtora: '); readln(avtor);
writeln('Vvedite nazvanie: '); readln(nazvanie);
writeln('Vvedite god izdanya: '); readln(god_izdania);
writeln('Vvedite spechialnost'); readln(spechialnost);
write(f,x[i]);
end;
close(f);
{Конец этапа}
{Проверка специальностей}
reset(f);
k:=0;l:=0;
while not eof (f) do
begin
   for i:=1 to n do
    begin
    read(f,x[i]);
    if (x[i].spechialnost='m') then k:=k+1 else
    if (x[i].spechialnost='a') then l:=l+1;
    end;
end;
Close(f);
{Конец этапа}
{Главный блок}
{Если k>l то записываем специальность a}
if k>l then
begin
reset(f);
assign(t,'C:\katalog2.txt');
rewrite(t);
while not eof (f) do
begin
 for i:=1 to n do
   begin
   read(f,x[i]);
   if (x[i].spechialnost='m') then write(t,x[i])
   end;
end;
end;
if k<l then {Если k<l то записываем специальность a}
begin
reset(f);
assign(t,'C:\katalog2.txt');
rewrite(t);
if l>k then
while not eof (f) do
begin
 for i:=1 to n do
   begin
   read(f,x[i]);
   if (x[i].spechialnost='a') then write(t,x[i]);
   end;
end;
end;
close(f);
close(t);
{ЦКонец гл блока}
{Вывод специальностей с большей суммой}
reset(t);
i:=1;
while not eof (t) do
begin
read(t,x[i]);
writeln(x[i].spechialnost,' ',x[i].avtor);
i:=i+1;
end;
readln;
end.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~
Попробуй этот код, у меня работает.
Кстати,

avtor:string[10];
nazvanie:string[10];
god_izdania:string[4];
spechialnost:string[2];

здесь можешь конечно поменять длину строк, но не советую выбирать очень обльшие значения потому, что когда данные записываются в katalog1.txt - там учитывается вся длина инициализации строки, то есть одна запись

nazvanie:string[80];;

действительно будет занимать именно 80 символов. После выполнения программы, когда файл откроешь не эстетично смотрится, так что длину строк не стоит брать слишком длинной, лучше обойтись максимально до 15.

[NeXuLoN]

Огромное тебе спасибо!