Виконання

program Project1;

uses

SysUtils;

var i, d : integer;

s1, s2, s3 : string;

word : string;

begin

readln(s1);

d:=length(s1);

s1[d]:=',';

i:=Pos(',', s1);

writeln;

while i>0 do

begin

word:=copy(s1, 1, i-1);

s2:=s1[1];

s3:=copy(word, 2, i-2);

if Pos(s2, s3)>0 then

write(word, ' ');

s1:=copy(s1, i+1, length(s1)-i);

i:=Pos(',', s1);

end;

readln;

end.

Рис.9.2 Програма в процесі виконання

Практична робота №10

Робота з файлами

1. Дано текстовий файл, у якому слова відокремлені одне від одного комою, а в кінці тексту крапка. Надрукувати всі слова, відмінні від останнього слова.