Olha isso aqui

Assuntos Gerais
#1 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vm = array[1..5,1..5] of real;
   var m: real;
      ex,o,p,n1,n2,n3,n4:integer;
       media, exame: vm;

   Procedure inserenotas (a,b,c,d: integer);
   var contr ,i,j:integer;

   begin
        m := (n1+n2+n3+n4)/4;
        for i:=contr to contr do
          for j := contr to contr do
              media[i,j] := contr+1;
          end;



  function examera(x:integer):integer;
  var i,z,j:integer;
  begin
  z := 1;

      for i := z to z do
          for j:= z to z do
          begin
            exame[i,j] := x;
            z:= z+1;

            end;
            examera:=x;
          end;

   begin
   writeln('inf. as notas atuais');
   readln(n1,n2,n3,n4);
   inserenotas(n1,n2,n3,n4);
   if (m>70) then
     writeln('aprovado')
   else
   if((m>=40) or (m<70)) then
      writeln('inf. a nota do exame');
      readln(ex);
      examera(ex);


   if((m>=40) or(m<70)) then
        begin
          writeln('inf. a posição da nota');
          readln(o,p);

           if((exame[o,p]<60)) then
            writeln('reprovado no exame !')
            else
             writeln('Aprovado no exame');
        end;
        readln;

end.

me ajudem a concerta isso ai
e pra hj
meu deus eu to frito
olha o enunciado

#2

Traduz isso no google por favor… warning nao eh erro… é um aviso, e ele diz que para loop a variavel precisa ser local

#3

igor_ ks ja concertei o que vc falou vlw olha ai agora

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vm = array[1..5,1..5] of real;
   var m: real;
      ex,o,p,n1,n2,n3,n4:integer;
       media, exame: vm;

   Procedure inserenotas (a,b,c,d: integer);
   var contr ,i,j:integer;

   begin
        m := (n1+n2+n3+n4)/4;
        for i:=contr to contr do
          for j := contr to contr do
              media[i,j] := contr+1;
          end;



  function examera(x:integer):integer;
  var i,z,j:integer;
  begin
  z := 1;

      for i := z to z do
          for j:= z to z do
          begin
            exame[i,j] := x;
            z:= z+1;

            end;
            examera:=x;
          end;

   begin
   writeln('inf. as notas atuais');
   readln(n1,n2,n3,n4);
   inserenotas(n1,n2,n3,n4);
   if (m>70) then
     writeln('aprovado')
   else
   if((m>=40) or (m<70)) then
      writeln('inf. a nota do exame');
      readln(ex);
      examera(ex);


   if((m>=40) or(m<70)) then
        begin
          writeln('inf. a posição da nota');
          readln(o,p);

           if((exame[o,p]<60)) then
            writeln('reprovado no exame !')
            else
             writeln('Aprovado no exame');
        end;
        readln;

end.
#4