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

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