rostr6.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var s:string;
    n:integer;
begin
write('s=');
readln(s);
repeat
n:=pos(' ',s);
if n<>0 then delete(s,n,1);
until n=0;
write(s);
readln;
end.