Описать структуру

[ВадикСтрах]

Необходимо написать программу:
Описать структуру с именем ZNAK, содержащую поляЖ
-фамилия, имя;
-Знак зодиака;
-Дата рождения (массив из трёх чисел).
НАписать программу, выполняющую следующие действия:
-Ввод с клавиатуры данных в массив, состоящий из восьми элементов типа ZNAK;
-Записи должны упорядочиваться по дтам рождения;
-вывод на экран информации о человеке, чья фамилия введена с клавиатуры;
-если такого нет, выдать на дисплей соответствующее сообщение.

язык Delphi

[Stilet]

Описать структуру с именем ZNAK, содержащую поляЖ
-фамилия, имя;
-Знак зодиака;
-Дата рождения (массив из трёх чисел).

type
 znak=record
  Plaj,F,I,O,Zodiak:string;
  Data:array[1..3] of word;
 end;

-Ввод с клавиатуры данных в массив, состоящий из восьми элементов типа ZNAK;

 for i:=1 to 8 do begin
  with a[i] do begin
   write('поляЖ: ');readln(polaj);
   write('Фамилия: ');readln(f);
   write('Имя: ');readln(i);
   write('Отчество: ');readln(o);
   write('Знак: ');readln(Zodiak);
   write('День: ');readln(data[1]);
   write('Месяц: ');readln(data[2]);
   write('Год: ');readln(data[3]);
  end;
  writeln;
 end;

вывод на экран информации о человеке, чья фамилия введена с клавиатуры;

  readln(ff);
  for i:=1 to 8 do begin
  with a[i] do begin
   if  ff<>f then continue;
   writeln('поляЖ: ',polaj);
   writeln('Фамилия: ',f);
   writeln('Имя: ',i);
   writeln('Отчество: ',o);
   writeln('Знак: ',Zodiak);
   writeln('День: ',data[1]);
   writeln('Месяц: ',data[2]);
   writeln('Год: ',data[3]);
  end;
  writeln;
 end;

Где ff:string - Вводи фамилии

А остальное - твое домашнее задание

[ВадикСтрах]

Спасибо огромное!!!
А продолжения не будет? Просто я немного туповат, сам продолжения не смогу написать...(((