. Програмування рядкових величин

s1:=s2

end;

delete(s,1,n);

n:=pos(‘ ‘,s)

end;

m:=length(s);

if m>max then s1:=s

end;

{Основна програма}

begin

write(‘Введiть текст, розділяючи слова одним символом “пропуск”: ‘);

readln(s);

writeln;

writeln(‘Результати: ‘);

kol(s,k);

writeln(‘кiлькiсть слiв у текстi k=’,k);

writeln;

writeln(‘Слова тексту: ‘);

druk(s);

writeln;

writeln(‘Найдовше слово тексту);

max_word(s,t);

writeln(t);

end.

Узагальнення по темі.