turbo pascal 1.1 su mac

program latino4c;
{ desinenze come array di stringhe variabili }
{ procedura desinenze registrata come programma e richiamata con $I }
{ coniugazione sequenziale indicativo quarta coniugazione }
{ per altre coniugazioni o tempi cfr.esempi in TURBO5 o TURBO3...}  
  

                              
 var rad1,rad2:string[12];
        infinito,perfetto:string[15];
        a,b:integer;
        des4:array[1..36] of string[10];
  

  {$I desinenze4}
  

   
  procedure pausa;
  begin
   writeln('premi return');
   readln;
   clearscreen;
  end;
  

  procedure coniuga(rad:string;x,y:integer;tempo:string);
  begin
   writeln(tempo,infinito);
    for b:=x to y do
      begin
      writeln(rad,des4[b]);
      writeln;
      end;
      writeln('-------------------------');
      pausa;
  end;    
          

begin
  writeln('scrivi infinito verbo latino quarta coniugazione:');
  readln(infinito);
  a:=length(infinito);
  rad1:=copy(infinito,1,a-3);
  writeln('scrivi perfetto indicativo stesso verbo latino:');
  readln(perfetto);
  a:=length(perfetto);
  rad2:=copy(perfetto,1,a-1);
 

  pausa;
  desinenze4;
  coniuga(rad1,1,6,'presente indicativo del verbo:');
  coniuga(rad1,7,12,'imperfetto indicativo del verbo:');
  coniuga(rad1,13,18,'futuro indicativo del verbo:');
  coniuga(rad2,19,24,'perfetto indicativo del verbo :');
  coniuga(rad2,25,30,'piuccheperfetto indicativo del verbo:');
  coniuga(rad2,31,36,'futuro anteriore del verbo:');  
    writeln('-----------------');
   pausa;
 end.