Создан массив из 5 записей.
Организован ввод данных в записи.
!Данные в 1ую запись успешно вводятся!
При введении данных в поле FIO !2й! записи крашится с ошибкой 106...
если в FIO вместо фамилии ввести число, не крашится :) На ответах говорят типа работает и я балабол)
сам код:
program lab;
type anketa=record
fio:string[45];
g:integer;
m:integer;
d:integer;
dolznost:string[20];
end;
var i,n:integer;
manager:array[1..5] of anketa;
begin
for i:=1 to 5
do with manager[i] do
begin
writeln('Vvedite dannye ',i,'managera');
writeln('FIO');readln(fio);
writeln('God rozhdenia');readln(g);
writeln('Mesyac');readln(m);
writeln('Day');readln(d);
writeln('Dolzhnost');readln(dolznost);
end;
writeln('Vvod zakonchen');
writeln('Kakoi mesyac ishem?');readln(n);
for i:=1 to 5 do
if manager[i].d=n then
writeln('FIO: ',manager[i].fio);
end.