program odin;
var mas:array[1..4] of string;
i,m:integer;
s:string;
begin
for i:=1 to 4 do begin
writeln('vvedite slovo');
readln(mas[i]); end;
for i:=1 to 4 do begin
s:=mas[i];
m:=length(s);
if pos(s[1], copy(s,2,m-2)) then writeln(s);
writeln(mas[i]); end;
readln;
end.
Тегами пользоваться не забываем...