Составить блок-схему.Записи. Код на Паскаль.

program Zapisi;

uses crt;

type student=record
  Surname, Vid_sporta: string[20];
  God_rozhdeniya: word;
  Pol: char;
  Kurs, Nom_p_p: Byte;
end;

var
  Gruppa: array [1..3] of student;
  i, y, j:integer;
begin
clrscr;
[COLOR=Blue]writeln('Заполните таблицу');
Writeln('г====T=============T=========T===T====T============¬');
Writeln('¦№п/п¦   Фамилия   ¦Год рожд.¦Пол¦Курс¦ Вид спорта ¦');
Writeln('¦====+=============+=========+===+====+============¦');
y:=0;
for i:=1 to 3 do
  with Gruppa do
  begin
    Writeln('¦');
    gotoxy(3,5+y);
    readln(Nom_p_p);
    gotoxy(6,5+y);
    Write('¦');
    readln(Surname);
    gotoxy(20,5+y);
    Write('¦');
    readln(God_rozhdeniya);
    gotoxy(30,5+y);
    Write('¦');
    readln(Pol);
    gotoxy(34,5+y);
    Write('¦');
    readln(Kurs);
    gotoxy(39,5+y);
    Write('¦');
    readln(Vid_sporta);
    gotoxy(52,5+y);
    writeln('¦');
    y:=y+2;
    if i<3  then
      Writeln('¦====+=============+=========+===+====+============¦');
    if i>=3 then
      writeln('L====¦=============¦=========¦===¦====¦============-');
  end;[/COLOR]{Вывод информации}
Writeln('Виды спорта в котором занимаются и девушки и юноши');
Writeln('г=============¬');
Writeln('¦ Вид спорта  ¦');
Writeln('¦=============¦');
y:=10;
for i:=1 to 2 do
  for j:=i+1 to 3 do
    if (Gruppa.Vid_sporta = Gruppa[j].Vid_sporta) and (Gruppa.Pol <> Gruppa[j].Pol) then
      writeln(Gruppa.Vid_sporta);
Writeln('¦');
gotoxy(3,5+y);
gotoxy(15,5+y);
Writeln('¦');
if i=3 then
  y:=y+2;
writeln('L=============-');
readkey;
end.