В заданной последовательности слов найдите все слова, имеющие заданное окончание — Pascal(Паскаль)

var
maswords:array[1..100]of string;
i,j:integer;
ch:char;
begin
writeln('Введите слова, последнее слово 0');
repeat
inc(i);
readln(maswords[i]);
until maswords[i]='0';
writeln('Введите символ окончания слова');
readln(ch);
writeln('Слова оканчивающиеся на ',ch);
for j:=1 to i-1 do
if maswords[j][length(maswords[j])]=ch then
writeln(maswords[j])
end.