8. astea | katea diagonalki erakutsi

program KateaKarakterekaProzesatzenDuenPrograma ;
const
   iMAX = 35 ;
type
   tsKatea = string[iMAX] ;

var
   sEsaldia: tsKatea ;
   iLuzera, k: integer ;
begin
   write('Esaldi labur bat eman: ') ;
   readln(sEsaldia) ;
   writeln('Esaldia hau da:  ///', sEsaldia, '///') ;
   iLuzera := length(sEsaldia) ;
   writeln('///', sEsaldia, '/// esaldiaren luzera = ', iLuzera) ;  
   writeln ;
  
   writeln('///', sEsaldia, '/// esaldia diagonalki pantailaratu:') ;
   for k:=1 to length(sEsaldia) do
   begin
      writeln(sEsaldia[k]:k) ;
   end ;
   writeln ;    
  
   readln ;
end.