строки Опции

[snopy]

Пожайлуста помогите подредоктировать такую программу.
Описать процедуру, которая печатает все слова, заканчивающаяся и начинающаяся на заданную букву.
В моём коде ошибка когда вводится например слова sos, coc, do, и задаётся буква s то выдаётся sos и coc/ Амн надо чтоб выдаваласть только sos. И ещё вопрос как можно сделать так чтоб слова вводились через пробел а при нажатии на ентер вводить букву и чтоб выводился результат.

Код

uses crt;  
var st:array[1..3]of string;  
    i:integer;  
procedure vozvrat(var s:string);  
begin  
if s[1]=s[length(s)] then  
writeln (s);  
end;  
begin  
clrscr;  
writeln('Ishodnye slova:');  
for i:=1 to 3 do  
readln(st[i]);
writeln('vvedite bykvy: ');
readln;  
writeln('nuznye slova:');  
for i:=1 to 3 do  
vozvrat(st[i]);  
readln;  
end.  

[volvo]

когда вводишь sisters, coc, sos и вводить букву c то выдаёт пустоту.

Вообще-то, когда при проверке твоей программы вводишь:

Ishodnye slova:
sisters
coc
sos
vvedite bykvy:
s

, то выдается

nuznye slova:
sisters
sos

Что я делаю не так?