Закольцевать программу

program project1; 
uses crt;               
var 
  c,   s: char;
  z,  i,  k,  f   : integer; 
  n : real; 
begin 
z := 1;                       
while z = 1 do 
  begin                                                                  // ПЕРВЫЙ БЛОК-НАЧАЛО
    clrscr;                                 
    writeln('Vvedite simvoly v stroku, okonchaniye vvoda Enter'); 
    repeat                 
      s := readkey; 
    until s <> #13; 
    write(s); 
    k := 1; 
    i := 1; 
    repeat   
      c := readkey; 
      inc(i); 
      if c <> #13 then write(c) 
      else writeln; 
      if c = s then inc(k); 
    until c = #13;  //пока не Enter 
    gotoXY(i + 1, 2);  
    write(s, '(', k, ')');
    readkey; 
    readln;                                    // ПЕРВЫЙ БЛОК-КОНЕЦ
  
  
  
    begin                                                             // ВТОРОЙ БЛОК-НАЧАЛО
    writeln('Enter the number'); 
    readln(n);                   
  f := 0; 
  if abs(n)>= 1 then 
  begin 
    while abs(n) > 10 do        
    begin 
      n := n/10; 
      inc(f);                  
    end; 
    writeln(n:2:9, 'E+', f:2);    
  end 
  else 
  begin 
    if abs(n) < 1 then 
    begin 
      while abs(n) < 1 do 
      begin 
        n := n * 10;            
        inc(f);                 
      end; 
      writeln(n:2:9, 'E-', f:2);  
    end 
      else 
    begin 
      n:=0;f:=0; 
      writeln(n:2:9, 'E-', f:2); 
    end;                                          //ВТОРОЙ БЛОК КОНЕЦ
  end; 
  
  readln; 
end;end; 
end.

while True do begin
  ...
end;

repeat
  ...
until False;