Написать программку в Pascal.ABCВывестипредпоследнее слово во введенной пользователем строке.

program word;
var s: string;
c: char;
l, k, m:integer;
begin
writeln(Введите строчку c пробелами меж словами);
readln(s);
l:= length(s);
k:= 0;
while k lt; 1 do //Поиск позиции первого пробела с конца
begin
c:= s[l];
if c = then k:= l;
l:= l - 1;
end;
m:= 0;
while m lt; 1 do //Поиск позиции второго пробела с конца
begin
c:= s[l];
if c= then m:= l;
l:= l - 1;
end;
//вывод букв меж найлеееыми пробелами
for i: integer:= m+1 to k-1 do write(s[i])
end.