в паскале решите...

в паскале решите задачу 1. В строке слова разделены пробелами. Определить на какую букву оканчивается четвертоеслово в предложении.

 

1) Pascal ABC.NET
var s:string; p:boolean; i,k:integer;
begin
p:false;
k:=0;
read(s);
for i:=1 to lenth(s) do
begin
if s=' ' then inc(k); 
if k=5 then p:=true else p:=false;
if p then writeln(s[i-1]);
end;
end.
 
вторая задачи без компа сложная, прости, нужно компилить и проверять