procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile (f1,'tf19_1.txt');
rewrite(f1);
for i:=1 ti memo1.lines.count do
writeln(memo1.lines[i-1]) ;
closefile(f1);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
const ssd=[ ' q ',' w ',' e ',' r ',' t ',' y ',' u ',' i ',' o ',' p ',' a ',' s ',' d ',' f ',' g ',' h ',' j ',' j ',' k ',' l ',' z ',' x ',' c ',' v ',' b ',' n ',' m '];
while
begin
assignfile (f2,'tf19_1.txt');
append(f2);
while not eof(f2) do
begin
readln(f2,str1);
for i:=1 to length(str1) do begin
if str1
end;
end;
end.