Вам нужно:
1) перевести строку в массив символов
2) узнать длину полученного массива
3) создать ещё один пустой символьный массив
4) создать цикл, в котором будут записываться элементы первого массива во второй, пока не встретится запятая. если же встретилась запятая, то заканчиваем выполнение цикла
5) узнать размер нового массива, который состоит из букв первого слова
6) вывести последний элемент нового массива, что и будет последней буквой первого слова
алгоритм, в общем-то, такой. Вам нужно лишь перевести это в код на нужном языке программирования
var a: array [1..20] of integer;
min,max,i,n: integer;
begin
write('n = (<= 20): ');
read(n);
writeln();
for i:= 1 to n do
begin
a[i]:= random(50)-25;
write(a[i]:4);
end;
min:= a[1];
max:= a[1];
for i:= 1 to n do
begin
if min < a[i] then
begin
min:= a[i];
end;
end;
for i:= 1 to n do
begin
if max > a[i] then
begin
max:= a[i];
end;
end;
writeln();
writeln('min = ',min);
writeln('max = ',max);
end.