Файл: Описать и проверить работу процедуры replace(t,c), заменяющей последний символ непустого текста t на c

type ttext=file of char;//по русски текст делфи 7 не понимает
                        //text-зарезервированное слово 
var
  Form1: TForm1;
  f:ttext;
implementation
 
{$R *.dfm}
procedure replase(var f:ttext;c:char);
begin
reset(f);
seek(f,filesize(f)-1);
write(f,c);
end;
//создание файла
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
if Memo1.Text='' then
 begin
  ShowMessage('Введите текст в Memo1');
  exit;
 end;
s:=Memo1.Text;
assignfile(f,'text');
rewrite(f);
for i:=1 to length(s) do
write(f,s[i]);
closefile(f);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var c:char;
begin
if Edit1.Text='' then
 begin
  ShowMessage('Введите в Edit1 символ для замены');
  exit;
 end;
c:=Edit1.Text[1];
replase(f,c);
reset(f);
while not eof(f) do
 begin
  read(f,c);
  Memo2.Text:=Memo2.Text+c;
 end;
closefile(f);
end;