Написать программу по строкам

uses crt;
var str,str2:string;
str3: array [1..30] of string;
i,j,k,m,l:integer;
begin
writeln('Введите вашу строку');
readln(str);
clrscr;
writeln ('Исходная строка');
writeln(str);
for i:=1 to length(str)-1 do
if (str[i]=' ') and (str[i+1]<>' ') then inc(k);
inc(k);
if k mod 2<>0 then
m:=(k+1) div 2;
l:=1;
for i:=1 to length(str) do begin
if (str[i]=' ') and (str[i+1]<>' ') then inc(l);
if l=m then
   for j:=i+1 to length(str) do
   if str[j]<>' ' then str2:=str2+str[j]
                  else begin inc(l);
                             break;
                       end;
                           end;
 
k:=pos(str2,str);
delete(str,k,length(str2)+1);
m:=1;
for i:=1 to length(str) do
if str[i]<>' ' then str3[m]:=str3[m]+str[i]
               else if str[i+1]<> ' ' then inc(m);
 
j:=m;
for i:=1 to m div 2 do begin
str2:=str3[i];
str3[i]:=str3[j];
str3[j]:=str2;
dec(j);
                        end;
str:='';
for i:=1 to m do
str:=str+str3[i]+' ';
writeln ('Полученная строка');
writeln(str);
readln;
end.

uses
  System.Collections.Generic;
var
  s_in, s_out: string;
begin
  writeln('Введите вашу строку');
  readln(s_in);
  
  with new List<string>(s_in.Split(new string[1](' '), 
                                   System.StringSplitOptions.RemoveEmptyEntries)) do
  begin
    if Odd(Count) then RemoveAt(Count div 2);
    Reverse;
    s_out := String.Join(' ', ToArray());
  end;
  writeln('Полученная строка: ', s_out);
end.