Найти самое длинное слово заданного предложения

var 
bykvi:set of char;
i,k,w,g:integer;
s:string;
x:char;
begin
k:=0;
bykvi:=['Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ','Э','Ж','Д','Л','О','Р','П','А','В','Ы','Ф','Я','Ч','С','М','И','Т','Ь','Б','Ю','й','ц','у','к','е','н','г','ш','щ','з','х','ъ','э','ж','д','л','о','р','п','а','в','ы','ф','я','ч','с','м','и','т','ь','б','ю'];
repeat
writeln ('Введите строку');
readln (s);
if (s[1]=' ') then writeln ('Нельзя, чтобы строка начиналась с пробела');
until (s[1]<>' ');
for i:=1 to length(s) do
if (s[i] in bykvi) then
begin
x:=s[i];
for g:=i to length(s) do
begin
if (s[g]=' ') then
if (s[g-1]=x) then
if k<g-1 then 
k:=g-1
end;
for g:=i to length(s) do
begin
if (g=length(s)) then
if (s[g]=x) then
if k<g then 
k:=g
end;
if k>0 then 
writeln ('Самое длинное симметричное слово: ',copy(s,i,g));
if k=0 then
writeln ('Симметричных слов нет');
end;
end.

var
  s,s2,sr:string;
  i,max:integer;
function ispd(s:string):boolean;
var
  i,j:integer;
  ok:boolean;
begin
  j:=length(s);
    ok:=true;
    for i:=1 to j div 2 do
      if s[i]<>s[j-i+1] then begin ok:=false;break;end;
    ispd:=ok;
end;
begin
  write('Введите строку:');
  readln(s2);
  max:=0;
  repeat
    s:='';
    for i:=1 to length(s2) do if s2[i] in ['А'..'Я','а'..'я'] then s:=s+s2[i] else break;
    delete(s2,1,i);
    if (ispd(s)) and (max<length(s)) then begin max:=length(s);sr:=s;end;
    until (s2='')or (max>length(s2));  
    writeln(sr);
end.