задачка на строки, ну как сказать Опции

[Ученик]

кароче
Найти самое длинное слово в предложении, преобразовать его в предложении - поменять порядок следования букв на обратный.
Вот чо у меня вышло

var
a,so:string[30];
c,b,i,k:integer;
buf:char;
begin
readln(so);
writeln(so);
a:='';
for i:=1 to length(so) do begin
inc(k); if (so[i]=' ') or (i=length(so)) then begin
if length(copy(so,i-k+1,k))>length(a) then a:=copy(so,i-k+1,k); k:=0;
end;
end;
writeln(a);
c:=length(a);
b:=pos(a,so);
k:=1;
for i:= b to b+(c div 2) do begin
inc(k);
buf:=so[i];
so[i]:=so[b+c-k];
so[b+c-k]:=buf;
end;
writeln(so);
readln;
end.

прастите не умею оформлять их

М

- выдели код блоком и выбери нужный пункт в меню CODE над окном ввода Lapp

1)как сделать штобы в длину слов не входили запятые или точки?
2)упростить какнить можно?(меня терзают сомнения, што я наворотил лишнего)
Спасибо