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

begin

n:=pos(‘ ‘,s);

while n<>0 do

begin

s1:=copy(s,1,n-1);

writeln(s1);

delete(s,1,n);

n:=pos(‘ ‘,s)

end;

writeln(s)

end;

procedure max_word(s:string; var s1:string);{ процедура знаходження найбільшого слова тексту }

var m,n,max:integer;

s2:string;

begin

s1:=”;

max:=0;

n:=pos(‘ ‘,s);

while n<>0 do

begin

s2:=copy(s,1,n-1);

m:=length(s2);

if m>max then

begin

max:=m;