Расшифровать сообщение

procedure TForm1.Button1Click(Sender: TObject);
var a:array of char;
    n,i,j,k,i1,i2:integer;
    c:char;
begin
if (trim(Edit1.Text)='')or (pos(' ',Edit1.Text)<2)then
 begin
  ShowMessage('Вы не ввели строку в соответствии с условием');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
n:=length(Edit1.Text);
setlength(a,n);
for i:=0 to n-1 do
a[i]:=Edit1.Text[i+1];
i:=0;
while i<n do
if(a[i]<>' ')and((i=0)or(a[i-1]=' '))then
 begin
   i1:=i;
   k:=0;
   j:=i;
   while(j<n)and(a[j]<>' ') do
    begin
     k:=k+1;
     j:=j+1;
    end;
   i2:=i1+k-1;
   for j:=1 to k div 2 do
    begin
     c:=a[i1+j-1];
     a[i1+j-1]:=a[i2-j+1];
     a[i2-j+1]:=c;
    end;
   i:=i+k;
 end
else i:=i+1;
for i:=0 to n-1 do
Edit2.Text:=Edit2.Text+a[i];
end;