Вывод данных в разные окна

[Absent]

У меня программа. Нужно считать из файла данные вывести из на экран затем обработать и вывести все уже в другое окно. Собственно как выводить в разные окна я и не знаю. Не прошу ее за меня делать, просто помогите какой-нибудь информацией, или ссылочкой. Язак Паскаль

pROGRAM GF  ;
USES crt;
type
uch=record
ocenki:array[1..3] of integer ;
fio:string[13];
grup:integer;
end;
var
ft:text;
i,n:integer;
kol:array[1..30] of uch;


begin
clrscr;
assign(ft,'E:\sistem\EE.pas');
reset(ft); n:=0;

begin
repeat N:=n+1; with kol[n] do
begin
read(ft,fio);
read(ft,grup);
for i:=1 to 3 do
read(ft,ocenki[i]);
readln(ft)
end;
until eof(ft);

close(ft);
for i:=1 to n do
begin
with kol[i] do
begin
writeln(fio,' ',grup,' ',ocenki[1],' ',ocenki[2],' ',ocenki[3]); {это в одно окно}
end;
end;

for i:=1 to n do
begin
with kol[i] do
begin

if ocenki[1] and ocenki[2]=5  then if ocenki[3]=5 then
writeln(fio,'  rpynna ',grup);                     {это уже в другое}
end;
end;
readln;
end;
end.