Помогите перекодировать
уже много раз пробовал переписать на java... но к сожалению из-за ошибок не могу скомпилировать ( код который я писал на java скинуть не могу ( удалил.. .
program 1;
uses crt;
var
t:string;
st, s:string;
i,n: integer;
begin
clrscr;
WriteLn('Введите строку символов: ');
ReadLn(t);
WriteLn;
n:=Length(t); {определяем длину строки}
st:='';
for i:=1 to n do {просмотр строки - поиск слов}
begin
if t <> ' ' then
s:=s + t
else
begin
st:=s + ' ' + st;
s:='';
end; {If}
end; {For}
st:=s + ' ' + st;
writeln('isx. text: ',t);
writeln('obrat. text: ',st);
readln;
end.