Паскаль

записать всех построчно в текстовый файл, считывать оттуда данные в паскале в двумерный массив, потом в цикле пройтись по массив и посмотреть первую букву фамилии.. . если она - В - вывести нужные данные...

переделай эту прогу для себя
program zap;
uses crt;
type
b=2..5;
str=record
fam:string[10];
oc:array[1..3] of b;
end;
var
tbl:array[1..100] of str;
y:str;
j,i,n,K:integer;
S:array[1..3] of real;
BEGIN
clrscr;
writeln('rabota s zapisyami');
writeln('-------------------');
writeln;

writeln('vvesti chislo studentov');
readln(n);
writeln('vvesti FIO i 3 ocenki ');
for i:=1 to n do begin writeln(i:2,' student');
with tbl do
readln(fam,oc[1],oc[2],oc[3]);
end;
writeln('isxodniy spisok ');
writeln('-------------------');
for i:=1 to n do
with tbl do
writeln(fam,' ',oc[1]:3,oc[2]:3,oc[3]:3);
for i:=1 to 3 do S [ i ]:=0;
for i:=1 to 3 do
for j:=1 to n do
with tbl[ j ] do
S[ i ]:=S +oc ;
writeln('srednij ball= ',s[1]/n:5:2,s[2]/n:5:2,s[3]/n:5:2);
k:=0;
for i:=1 to n do
with tbl do
if ((oc[1]>3) and (oc[2]>3) and (oc[3]>3)) then
k:=k+1;
writeln('bez troek = ',k,' procent= ',k/n*100:5:2,'%');
writeln('----------------------------');
writeln('konec zadachi');
readkey;
END.

Как-то так:

program spisok;
var
f:textfile;
s:string;
begin
AssignFile(f, 'C:\Users\akmas\Desktop\Новый текстовый документ (3).txt');
reset(f);
while not Eof(f) do begin
readln(f,s);
if s[1] ='В' then writeln(s);
end;
closefile(f);

end.