Pascal ABC Срочно помогите!!!!
Составьте программу, которая определяет на какую букву заканчивается третье слово в предложении.

Var a: string;b,c: integer;beginreadln (a)While c<3 do begin b :=b+1; if (a[b] = (" ")) or a[b] = (" , ")) then c:=c+1; end;writeln (a[b-1]);end.