{* Задача 335 *}

Unit ZADACH335;
Interface
Implementation
Begin
 writeln('Написать программу формирования в интерактивном режиме списка студентов(фамилия, дата рождения, на каком курсе он учиться, количество семестров).');
End.

Program var62;

Uses zadach335.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  str = Record       fam : String [30];
  dr : String [10];
  kurs : integer;
  ks : integer;
  End;
Var {* Объявление переменных *}
  tbl : Array [1..6] Of str;
  i   : integer;
  k   : integer;
  c   : integer;
  y   : str;
  x   : String;
  Begin
For i := 1 To 6 Do {* Цикл для i => [1 .. 6] *}
  with tbl[i] Do
Begin
  writeln ('Введите фамилию');
  readln (fam);
  writeln ('Введите дату рождения');
  readln (dr);
  writeln ('На каком курсе он учиться');
  readln (kurs);
  writeln ('Количество семестров');
  readln (ks);
End;
For k := i To 6 Do {* Цикл для k => [i .. 6] *}
Begin
  x := 'B';
  c := pos(x, tbl[k].fam);
  If c = 1 Then
    y := tbl[k];
  writeln ('Список студентов');
  tbl[i] := y;
  For i := 1 To 6 Do {* Увеличиваем i от 1 до 6 с шагом 1 *}
    with tbl[i] Do
  writeln (fam, dr, ks);
End;

End...