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

[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.

[F.I.A.T.]

for i:= 1 to 5 do with grupa[i] do
  if fio[1] in ['В', 'Г'] then writeln(fio,'god rozh=',godr:4,'God vstupleniya=', rikvct:4);

?

[Desktop II]

Подскажите по почему при вводе фамилий пишет "Invalid numeric format" тип char же вроде стоить, что не так ?

[Ozzя]

fio : packed array[1..10] of char;

Замени на string[10]
packed - не используется в ТП, оставлено для совместимости с Паскалем Вирта