Написать программу которая выводит слова, количество букв в которых больше 5

var
  s, s2: string;
  i, j, a, dl: integer;
 
begin
  Readln(s);
  dl := length(s);
  s := s + ' ';
  i := 1;
  repeat
    a := pos(' ', s);
    
    if(a > 6) then
    begin
      s2 := s2 + copy(s, 1, a);
      delete(s, 1, a);
    end;
    
    inc(i);
  until i = dl;
  Writeln(s2);
end.

var
  s, s2: string;
  i, j, a, dl: integer;
 
begin
  Readln(s);
  dl := length(s);
  s := s + ' ';
  i := 1;
  repeat
    a := pos(' ', s);
    
    if(a > 6) then
    begin
      s2 := s2 + copy(s, 1, a);
      delete(s, 1, a);
    end;
    if(a<=6) then
    delete(s, 1, a);
    inc(i);
  until (i = dl);
  Writeln(s2);
end.

program a;
uses crt;
type st=string;mass=array[1..20] of string;
var s,s1,s2,s3:string;i,j,k,l,n:integer;y:mass;
 
function quantity(s1,s2:string):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to length(s2)-length(s1)+1 do 
if copy(s2,i,length(s1))=s1 then k:=k+1;
quantity:=k; end;
 
function poisk(s1,s2:string):string;
var i:integer;k:string;
begin
k:='нет';
for i:=1 to length(s2)-length(s1)+1 do 
if copy(s2,i,length(s1))=s1 then k:='да';
poisk:=k; end;
 
procedure inverse(var s1:string);
var i:integer;k:string;
begin
k:='';
for i:=1 to length(s1) do
k:=copy(s1,i,1)+k;
s1:=k; end;
 
procedure double(var s1:string);
var i:integer;k:string;
begin
k:='';
for i:=1 to length(s1) do
k:=k+copy(s1,i,1)+copy(s1,i,1);
s1:=k; end;
 
procedure zamena(var s1:string;s2,s3:string);
var i:integer;k:string;
begin
k:='';
for i:=1 to length(s1) do 
if copy(s1,i,length(s2))=s2 then begin k:=k+s3;i:=i+length(s2)-1 end
else k:=k+copy(s1,i,1);
s1:=k; end;
 
procedure del(var s1:string;s2:string);
begin
zamena(s1,s2,'');
end;
 
procedure  slova(s1:string;var k:integer;var y:mass);
var i,l:integer;
begin
l:=pos('  ',s1);
while l>0 do begin
zamena(s1,'  ',' ');
l:=pos('  ',s1);end;
k:=1;l:=pos(' ',s1);
while l>0 do begin
y[k]:=copy(s1,1,l-1);
k:=k+1;
delete(s1,1,l);
l:=pos(' ',s1);
end;
y[k]:=copy(s1,1,length(s1));
end;
procedure printmass(k:integer;y:mass);
var i,j,mx:integer;
begin
{найдем максимальную длину слова}
mx:=length(y[1]);
for i:=2 to n do
if length(y[i])>mx then mx:=length(y[i]);
{выведем по услоию }
i:=1;
while i<=k do
begin
for j:=1 to mx-length(y[i]) do write(' ');
write(y[i]);
if i<k then begin
for j:=1 to mx-length(y[i+1])+1 do write(' ');
write(y[i+1]);
end;
writeln;
i:=i+2;
end;
end;
begin
writeln('введите предложение ');
readln(s);
slova(s,n,y);
printmass(n,y);
end.