Файлы, помогите в ДЕЛФИ сделать

[Zaraaa]

Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу.
помогите переделать в делфи(это в консоле) пожалуйста помогите((

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var buf:string;
    f,g:text;
    i,n:integer;
Begin

assign(f,'C:\f.txt');
assign(g,'C:\g.txt');
Writeln ('Vvedite kolichestvo strok fajla F:');
Readln(n);
rewrite(f);
for i:=1 to n do
 Begin
 Writeln ('Vvedite',i,'-ju stroku:');
 Readln (buf);
 writeln (f,buf);
 End;
close (f);
reset(f);
rewrite(g);

while not eof(f) do
 begin
 readln (f,buf);
 buf:=' '+buf;
 writeln (g,buf);
 end;
close (f);
close (g);
Writeln('Vypolneno!');
readln;
End.

[netpolice]

    f,g:TextFile;
    i,n:integer;
Begin

AssignFile(f,'C:\f.txt');
AssignFile(g,'C:\g.txt');

в принципе все изменения, ну а для красоты Вы уже сможете уже подключить всякую визуализацию

[Stilet]

Оконный "почти"Делфи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

Var buf:string;
    f,g:text;
    i,n:integer;
Begin

assign(f,'C:\f.txt');
assign(g,'C:\g.txt');
n:=StrToIntDef(InputBox('Vvedite kolichestvo strok fajla F:','',''),0);
rewrite(f);
for i:=1 to n do
 Begin
 writeln (f,InputBox('Vvedite'+IntToStr(i)+'-ju stroku:','',''));
 End;
close (f);
reset(f);
rewrite(g);

while not eof(f) do
 begin
 readln (f,buf);
 buf:=' '+buf;
 writeln (g,buf);
 end;
close (f);
close (g);
ShowMessage('Vypolneno!');


end;

end.

Только тебе это не поможет )
Ты не знаешь основ создания оконных приложений в Делфи.