Code:

var nizSlova:array[0..9,0..19] of String;
    nizVrednosti:array[0..9,0..19] of Real;
    i,j,k,n,n1,n2:Integer;
    nizGeneratora:array[0..9,0..9] of Real;
    x: string;

begin
   i:=1;
   j:=1;
   writeln('Koliko ima kontura?');
   readln(k);
   For n1:=0 to k-1 do     { koliko ima kontura, toliko je redova u matrici}
   begin
      Writeln('Koliko ima elemenata u trenutnoj konturi?');  {broj kolona u matrici}
      readln(n);
      For n2:=0 to n-1 do  

         begin
             writeln('element je?');
             readln(nizSlova[i,j]);
             x:=nizSlova[i,j][1];

               If x='E' then   {ako je E, smesti u niz sa rezultatima}   
               begin
               Writeln('Unesite vrednost');
               readln(nizGeneratora[i,j])

               end

               else
               begin
               Writeln('vrednost mu je?');

                readln(nizVrednosti[i,j]); {u suprotnom smesti u matricu sa vrednostima - koje se posle koriste pri racunu}



             end;


       end;

      For i:=1 to n do
           For j:=1 to k do      
              begin
                   Writeln(nizVrednosti[i,j]:2:2);  //ispis nizova
                   Writeln(nizSlova[i,j]);
              end
     end;
              Writeln('Niz vrednosti elemenata - treba da bude ');
              Writeln('1 2 3 4');
              Writeln('5 6 7');              
               
              Writeln('Niz elemenata treba da bude');
              Writeln('E1 R1 E2 R2');
              Writeln('E2 R2 R3');
              
              readln(n)
end.