ЗАДАННЯ НА ПАСКАЛЯ --- ЗАПИСЬ, график функция, МАССИВ,

[annya77]

приветик !!!! спасива за помож!!!
но ети коди не работают !!!

uses crt, graph;
var gd,gm:integer;x,y:real;
    c:char;
begin
 clrscr;
 x:=0;
 initgraph(gd,gm,'');
 moveto(100,100);
 repeat
  y:=sin(x)+cos(x)-1;
  linerel(round(10*x),round(10*y));
  x:=x+0.1;
 until x>=pi;
 readln;
 closegraph;
end.

uses crt;
const m=5;
      n=7;
var a,b:array[1..10,1..10] of integer;
    x:real;
    
procedure Init(var Matr:array[1..10,1..10] of integer;y:integer);
var  i,j:integer;
    
begin
 for i:=1 to y do
  begin
   for j:=1 to y do
    begin
     Matr[i,j]:=random(10);
     write(a[i,j]:3);
    end;
   writeln;
  end;
writeln('=====================================');
end;

function Sled(Matr:array[1..10,1..10] of integer;y:integer):integer;
var i,res:integer;
begin
res:=0;
for i:=1 to y do
 res:=res+Matr[i,i];
 Sled:=res;
end;

begin
clrscr;
Init(a,m);
Init(b,n);
x:=Sled(b,n)/Sled(a,m);
writeln(x);
end.

Alex ????
stillet?????


Пожалуйста, помогите ... Пожалуйста, помогите ...

[alex_fcsm]

Не работает? Что не так? Выкладывайте описание ошибки


P.S. Если проблема в том что "ничего не происходит", в конце программы подпишите

readln;

[annya77]

prievet prosta kompilater skasal 4to est obchika tut.....>

procedure Init(var Matr:array[1..10,1..10] of integer;y:integer);

i ya ne znayu gde.

[alex_fcsm]

Сообщение от annya77

prievet prosta kompilater skasal 4to est obchika tut.....>

procedure Init(var Matr:array[1..10,1..10] of integer;y:integer);

i ya ne znayu gde.

У меня все компилиться. Название или код ошибки

[annya77]

ti eto paprobeval ???