[Димона]

2.

Код:

var
s:string;

i,k:integer;
begin
k:=strtoint(edit1.text);
s:=memo1.Lines.text;

delete(s,3,1);
delete(s,k,1);
i:=length(s);
if s[1]='о' then delete(s,i,1);

if s[i]='т' then delete(s,i,1);
 memo1.lines.add(s);
end;