Pascal otazky

Program Prevraceni1;

var delka, poradi: integer;
    vstupni, vystupni: String;

begin
  writeln('Zadej vstupní øetìzec (max. 255 znakù): ');
  readln(vstupni);
  delka := length(vstupni);
  for poradi:=1 to delka do
    begin
      vystupni[poradi]:=vstupni[delka-poradi+1];
      vystupni:=vystupni+vystupni[poradi];
    end;
  writeln();
  writeln('Pøevrácený øetìzec: ', vystupni);
  readln();
end.

for poradi:=1 to delka do
    begin
      vystupni[poradi]:=vstupni[delka-poradi+1];
      vystupni:=vystupni+vystupni[poradi];
    end;