Помогите с кодом Pascal; создание и запись в txt-файл

переделай эту программу к своей
{Sozdanie tekstovogo faila s viravnivaniem po levomu kraju. }
program textfile;
uses crt;
const namebd='bd.txt';
var
tbl:array[1..100] of string[80];
f:Text;
s:string;
n,i,j:integer;
z:char;
BEGIN
clrscr;
writeln('Sozdanie faila');
assign(f,namebd);
rewrite(f);
z:='y';
while z='y' do begin
Writeln('Vvesti predlojenie(<=80 simvolov), mojno nachat s probelov');
ReadLn(s);
writeln(f,s);
writeln('');
writeln('dobavit eshcho?(y/n)');
readln(z);
end;
writeln('Sozdanie zakoncheno');
close(f);
writeln('Najmite Enter.');
readln;
writeln('Prosmotr ischodnogo fajla');
assign(f,namebd);
reset(f);
writeln('-------------------------------------');
n:=0;
while not eof(f) do
begin
n:=n+1;
readln(f,s);
tbl[n]:=s;
writeln(s);
end;
close(f);
writeln;
writeln('Prosmotr konechnogo fajla');
writeln('-------------------------------------');
for i:=1 to n do begin
j:=1;
s:=tbl[i];
while j<=80 do
if (s[j] =' ') then Delete(s,j,1)
else break;
tbl[i]:=s;
writeln(s);
end;
readln;
END.

program q196629524;
var oo0oo0oo00o0ooo0oooo0ooo0o,oo0ooo00o0o00o0o000o0,oo0oo000o0o0oo000o0o0o0:integer;
c:char;oo0ooo00o0oo0oo00o0ooo0,oo000oo00o0o0o00000o0oo0oo0:string;var oo0oo0o0ooooo0o0o00ooooo000o0o
:text;const oo0ooo000o00oo00oo0o='deHlorw';
var o0o000o000ooo000o0oo00:array[1..12]of integer;
begin
o0o000o000ooo000o0oo00[3]:=4;
o0o000o000ooo000o0oo00[1]:=3;
c:='/';
o0o000o000ooo000o0oo00[11]:=1;
o0o000o000ooo000o0oo00[2]:=2;
o0o000o000ooo000o0oo00[4]:=o0o000o000ooo000o0oo00[3];
o0o000o000ooo000o0oo00[7]:=7;
oo0ooo00o0oo0oo00o0ooo0:=c;
o0o000o000ooo000o0oo00[5]:=5;
o0o000o000ooo000o0oo00[8]:=o0o000o000ooo000o0oo00[5];assign(
oo0oo0o0ooooo0o0o00ooooo000o0o,'text.txt');o0o000o000ooo000o0oo00[9]
:=6;o0o000o000ooo000o0oo00[10]:=o0o000o000ooo000o0oo00[3];
for oo0oo0oo00o0ooo0oooo0ooo0o:=1 to o0o000o000ooo000o0oo00[1] do for oo0ooo00o0o00o0o000o0:=1 to o0o000o000ooo000o0oo00[1] do for oo0oo000o0o0oo000o0o0o0:=1 to o0o000o000ooo000o0oo00[2] do oo0ooo00o0oo0oo00o0ooo0:=oo0ooo00o0oo0oo00o0ooo0+c;
writeln(oo0oo0o0ooooo0o0o00ooooo000o0o,oo0ooo00o0oo0oo00o0ooo0);for oo0ooo00o0o00o0o000o0:=1
to o0o000o000ooo000o0oo00[2] do begin oo000oo00o0o0o00000o0oo0oo0:=oo0ooo000o00oo00oo0o[3];oo0ooo00o0oo0oo00o0ooo0:=c;
for oo0oo0oo00o0ooo0oooo0ooo0o:=o0o000o000ooo000o0oo00[2] to 12 do if (oo0oo0oo00o0ooo0oooo0ooo0o<>6)or(oo0oo0oo00o0ooo0oooo0ooo0o<>6)then oo000oo00o0o0o00000o0oo0oo0:=oo000oo00o0o0o00000o0oo0oo0+oo0ooo000o00oo00oo0o[o0o000o000ooo000o0oo00[oo0oo0oo00o0ooo0oooo0ooo0o]]else if oo0oo0oo00o0ooo0oooo0ooo0o=6 then oo000oo00o0o0o00000o0oo0oo0:=oo000oo00o0o0o00000o0oo0oo0+chr(32) else oo000oo00o0o0o00000o0oo0oo0:=oo000oo00o0o0o00000o0oo0oo0+chr(33);
Writeln(oo0oo0o0ooooo0o0o00ooooo000o0o,oo000oo00o0o0o00000o0oo0oo0);end;
for oo0oo0oo00o0ooo0oooo0ooo0o:=1 to o0o000o000ooo000o0oo00[1] do for oo0ooo00o0o00o0o000o0:=1 to 3 do for oo0oo000o0o0oo000o0o0o0:=1 to 2 do oo0ooo00o0oo0oo00o0ooo0:=oo0ooo00o0oo0oo00o0ooo0+c;
writeln(oo0oo0o0ooooo0o0o00ooooo000o0o,
oo0ooo00o0oo0oo00o0ooo0);end.

Вот программа, формирующая текстовый файл. Правда она на access-е и в кириллице.
--------------------
ОПТИОН ЦОМПАРЕ ДАТАБАСЕ

ПРИВАТЕ СУБ Кнопка0_ЦЛИЦК ()
ОПЕН "Б: \ФИЛЕ. ТХТ" ФОР ОУТПУТ АС #1
ПРИНТ #1, "///////////////////"
ПРИНТ #1, "ХЕЛЛО ВОРЛД!"
ПРИНТ #1, "ХЕЛЛО ВОРЛД!"
ПРИНТ #1, "///////////////////"
ЦЛОСЕ #1
ЕНД СУБ