Записи

[MurkyMargosha]

На паскале:
Разработать базу данных "Научно – техническая библиотека" (Фамилия, И. О. автора книги, Название книги, город, издательство, год выпуска, тематика). Получить данные о книгах по заданной тематике.

(Обработка записей должна быть реализована в подпрограммах. Исходные записи задаать в главной программе и сохранить в типизиро-ванном файле. Имя файла ввести с клавиатуры в главной программе. Результат обработки вывести в главной программе.)

program pr13;
uses crt;
type Tsotr = record
     fam:string;
     naz:string;
     gor:string;
     izd:string;
     god:char;
     tem:string
     end;
TsotrAr = array[1..20] of Tsotr;
procedure proc(sotr: TsotrAr; nzap: byte;
          var mans: TsotrAr; var nman: byte);
var i, j: byte;
    zap: Tsotr;
zbegin
j:= 0;
for i:= 1 to nzap do
    if sotr[i].tem = 'technika' then begin
       inc(j);
       zap:= sotr[i];
       with mans[j] do begin
	     fam:=zap.fam;
	     naz:=zap.naz;
	     gor:=zap.gor;
	     izd:=zap.izd;
	     god:=zap.god;
	     tem:=zap.tem
       end
    end;
nman:= j
end;
var
i, ns, nm: byte;
sot: TsotrAr;
man: TsotrAr;
fl: file of Tsotr;
s: string;
begin clrscr;
write('Wwegite name faila -> ');
readln(s);
assign(fl, s);
rewrite(fl);
i:=1;
while true do begin
     with sot[i] do begin
	  writeln(i,' familia:');
	  write('Wwedite tematiku -> '); readln(tem);
	  if tem = 'z' then break;
	  write('Wwedite fam -> ');
	  readln(fam);
	  write('Wwedite nazwanie -> ');
	  readln(naz);
          write('Wwedite gorod -> ');
	  readln(gor);
          write('Wwedite izdanie -> ');
	  readln(izd);
          write('Wwedite god -> ');
	  readln(god);
          write(fl, sot[i]);
	  inc(i)
     end;
end;
ns:= i;
proc(sot, ns, man, nm);
writeln(':');
writeln('  fam    naz    gor   izd    god    tem   ');
writeln('==========================================');
for i:= 1 to nm do
    with man[i] do
         writeln(fam:10,naz:10,gor:7,izd:3,god:6,tem:4);
close(fl);
readkey;
end.

Выдает ошибку 86, не понимаю что не так( помогите запустить прогу

[Serge_Bliznykov]

Паскаль у Вас какой?
Если не TurboPascal, тогда рекомендую заменить описание записи, везде, где string, заменить на конкретную длину (например,

type Tsotr = record
     fam:string[40];
     naz:string[40];
     gor:string[30];
и т.д.

ну и что такое:

god:char;

думаете, что для года хватит одной буквы(одного символа)?!!