[cawwe]

добрый вечер! нужна помощь, нужно написать программу, которая выводит фамилию наоборот(нужно было продолжить код), но я запутался посмотрите что не так?

Код:

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.