Дополните пожалуйста программу

[111Владимир111]

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f,h,g: file of char;
    c: char;
begin
assign(f,'C:\Users\User\Desktop\f.txt');
assign(h,'C:\Users\User\Desktop\h.txt');
assign(g,'C:\Users\User\Desktop\g.txt');
reset(f);
rewrite(g); rewrite(h);
while not (eof(f)) do
      begin
      read(f,c);
      if c in ['A'..'Z','a'..'z'] then write(h,c);
      if c in ['а'..'я','в'..'щ'] then write(g,c);
      end;
close(f); close(h); close(g);
readln;
readln;
end.

А как сделать, чтобы в диалоговое окно сразу выводилось, все то, что написано в файле f?

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

http://pascal.guti.ru/string.html

[Serge_Bliznykov]

Сообщение от 111Владимир111

чтобы в диалоговое окно сразу выводилось

Сообщение от 111Владимир111

{$APPTYPE CONSOLE}

у Вас консольное приложение, какое ещё диалоговое окно?!