Массив записей...

[eragon_ua]

Мне нужно было составить массив записей, который имеет такую структуру:
1.ФИО сотрудника
2.номер отдела
3.должность
4.зарплата

И вывести:
1.созданный массив
2.записи, которые имеют заданный номер отдела

Я сделал, но выдает "Unknown identifier" . Не знаю, что неправильно сделал. Люди, помогите.. =)

Program zar;
uses crt;
const n=5;
Type sotrud=record
fio,dol:string[20];
zar,otd,real;
otd2:real;
end;
 
var a:array[1..n] of sotrud;
i:byte;
Begin
clrscr;
for i:=1 to n do
with a[I] do
begin
writeln('Vvedite FIO');
readln(fio);
writeln('Vvedite dol`jnost`');
readln(dol);
writeln('Vvedite otdel');
readln(otd);
writeln('Vvedite zarplatu');
readln(zar);
end;
writeln('Vvedite nomer otdela');
readln(otd2);
for i:=1 to n do 
with a[I] do 
if otd=otd2 then writeln(fio,' ',dol,' ',zar)
end.

___________
к сожалению на форуме нет тегов [PASCAL] .. [/PASCAL]
(возможно, они появятся).
Но пока их нет, используйте форматирование исходного текста
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.

[Serge_Bliznykov]

накосячили Вы тут:

zar,otd,real;
otd2:real;

предлагаю такую структуру:

uses crt;
const n=5;
Type sotrud=record
  fio,dol:string[20];
  otd : integer;
  zar  : real;
end;
 
var 
  a:array[1..n] of sotrud;
  i:byte;
  otd2:integer;
begin
.... <дальше всё по тексту...>

[eragon_ua]

Спасибо Вам большое. Все работает.