Type Uchenik=record fam:string[15]; nam:string[15]; ocenka:string; end; var a:array[1..100] of Uchenik; fin,fout:text; i,j:integer; S:string; begin assign(fin,'uch1.txt'); reset(fin); i:=0; repeat i:=i+1; with a[i] do readln(fin,fam,nam,ocenka); until eof(fin); close (fin); assign(fout,'uch2.txt'); rewrite(fout); for j:=1 to i do if (a[j].ocenka='horoshist') or (a[j].ocenka='otlichnik') then writeln (fout,a[j].fam); close(fout); end. end.