фамилия, имя, знак Зодиака, дата рождения (массив из трех чисел).
Вывести на экран информацию о людях, родившихся в месяц, значение
которого вводится с клавиатуры. Если таких людей нет, то вы-дать на
дисплей соответствующее сообщение. Ввод файла и его обработку оформить
в виде от-дельных подпрограмм.
Вот такой вариант может быть правильным? Еще меня интересует как оформить
в виде отдельных подпрограмм.
Program rgz8;
const
n=1;
type
ludi=record
fam,name,znak,mes:string;
data,god:integer;
end;
Var
lud: array[1..n] of ludi;
i,j:integer;
Begin
writeln('Vvedite dannyi o ludyah');
for i:=1 to n do
with lud[i] do begin
writeln('Vvedite familiu');
readln(fam);
writeln('Vvedite imya');
readln(name);
writeln('Vvedite znak zodiaka');
readln(znak);
writeln('Vvedite meses');
readln(mes);
writeln('god');
readln(god);
writeln('data rogdenia');
readln(data);
end;
if lud[i].mes='август' then begin
for i:=1 to n do
write(lud[i].name);
end
else writeln('Takih ludei net');
readln;
end.