507. Сведения об ученика состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дано файл /, содержащий сведения об учениках школы.
ж) Собрать и файле g сведения об учащихся 9-х и 10-х классов, поместив сначала сведения об учениках класса 9а ,9-би т. д., затем 10а, 106 и т.д.
[HTML]program Project507;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=4;
var
Name:string[25];
Famil:string[25];
Klass:string[25];
f_2:text; g_2:text;
begin
assign(f_2,'f.txt');
assign(g_2,'g.txt');
reset(f_2); rewrite(g_2);
while not eof(f_2) do
begin
read(f_2,klass);
if klass='9-A'then
read(f_2,name, famil, klass);
write(g_2, famil:15, name:10, klass:5);
end;
close(g_2); close(f_2);
readln;
end.
[/HTML]