Язык Паскаль, Тип данных - строки Опции

[Провинциалка]

Прошу помочь в написании программы для задачи:
"В заданном предложении в каждом слове удалить все последующие вхождения первой буквы предложения. Новый текст вывести на печать".
Альтруисты, откликнитесь!

[Archon]

Такое впечатление, что это программа не твоя, а товарища с похожим заданием.

А программу подредактировать поможешь?

Подредактировать? Легко. Добавь в неё две фигурные скобки:

Program stroka1;
uses crt;
var s,s1,s2,s3:string;
    i,j,k:byte;
    c:char;
begin
clrscr;
writeln('Введите 1 предложение:');
readln(s);
s:=' '+s;
i:=1;
s2:='';
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then
 begin
  j:=i;
  s1:='';
  while(j<=length(s)){and(s[j]<>' ')} do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  c:=s1[1];
  s3:=copy(s1,2,length(s1)-1);
  for k:=length(s3)downto 1 do
  if s3[k]=c then delete(s3,k,1);
  s2:=s2+s1[1]+s3;
  i:=i+length(s1);
 end
else
 begin
  s2:=s2+s[i];
  i:=i+1;
 end;
delete(s2,1,1);
write(s2);
readln
end.