добрый вечер! нужна помощь, нужно написать программу, которая выводит фамилию наоборот(нужно было продолжить код), но я запутался посмотрите что не так?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s,a:string;
i,len:integer;
begin
s:=Memo1.Text;
len:=Length(s);
SetLength('п',len)
SetLength('р',len)
SetLength('в',len)
SetLength('е',len)
SetLength('т',len)
for i:= len downto 1 do
begin
a[len-1+1]:=s[i];
end;
Label1.Caption:=a
end;
end.