Записи, Условие Опции

[Desktop II]

Сложить список групи из 5 человек. Для каждого, кто учиться ввесть
дату рождения, год вступа в кчебное заведение, курс, групу, оценки за каждый
год учебы. Совокупность записей обеденить в масив.
Сложить программу которая обезпечить ввод полученой информаций, печать её в выгялде
таблицы. Напечатать оценки за поcледнию сесию студентов, фамилий которых начинаются
с букв В и Г.

Как поставить условие что бы выводило имена студентов на В и Г ?

program zap(input,output);
type student=record
fio : packed array[1..10] of char;
godr:1980..1990;
godvct:1995..2005;
ocenky:record
alg,ist,inf:1..5
end
end;
var grupa: array [1..5] of student;
s1: student; i,j: integer;
begin
with s1, ocenky   do
begin
for i:=1 to 5 do
begin
write('Vvedite danie=>');
for j:= 1 to 5  do
read(fio[j]);
readln(godr,godvct, alg,ist,inf);
grupa[i]:=s1
end
end;
writeln ('Spisok studentav na bukvu V i G :');
for i:= 1 to 5  do with grupa[i],
{КАК ПОСТАВИТЬ УСЛОВИЕ }
writeln  (fio,'god rozh=',godr:4,'God vstupleniya=', godvct:4);
end.