Переделать программу pascal

[tdsotm]

Программа проверяет строку на палиндромность (читается одинаково слева и справа). Нужно переделать так, чтобы не было подпрограмм(знаю, что так не оптимально, но препод принципиальный).

var
  s : string;
  
function Palindrom(s : string): boolean;
begin {Palindrom}
  if length(s)<2 then
    Palindrom := true
  else
    Palindrom := (s[1]=s[length(s)]) and
                 Palindrom(copy(s,2,length(s)-2))
end;  {Palindrom}
  
begin
  writeln('Введите строку');
  readln(s);
  write('Это ');
  if Palindrom(s) then 
  else
    write('не ');
  writeln('палиндром.');  
  
end.

[Stilet]

var i:integer;b:boolean;
... Вводим строку
i:=1; b:=true;
while (i<(Length(s) div 2)) and b do begin 
 if s[i]<>s[Length(s)-i+1] then b:=false;
 inc(i);
end;
if b then write('палиндром') else write('не палиндром');
...

Идея ясна?