[Modula] Leren werken met procedures.

[Bert F]

Hallo,

ik heb volgende code geprogrameerd in modula2 maar het programma doet niets waarom? ik heb dit eigenlijk geprogrammeerd om te leren werken met procedures das me precies niet gelukt.

MODULE procedure;
<* NOOPTIMIZE + *>
FROM IO IMPORT RdChar, WrChar, WrStr, RdStr, WrLn, RdCard, WrCard, RdInt, WrInt, RdReal, WrReal, RdBool, WrBool;

PROCEDURE telop;

VAR vector1: ARRAY[1..3] OF INTEGER;
vector2: ARRAY[1..3] OF INTEGER;
vector3: ARRAY[1..3] OF INTEGER;

a,i,b: INTEGER;


PROCEDURE telop;

VAR i,a: INTEGER;

BEGIN


FOR i:=1 TO a DO

a:=vector1;
b:=vector3;
vector3:=a+b;
END

END telop;

BEGIN
WrStr("geed me de dimensie");
WrStr("geef me de eerste vector");
WrStr("x: ");
WrLn;
WrStr("y: ");
WrLn;
WrStr("z: ");

telop;


WrStr("de nieuwe vector is");

FOR i:=1 TO 3 DO

WrInt(vector3,0);

END;

END telop;

END procedure.

Ik wil eigenlijk gewoon een array de ik invoer optellen met een lege .

Groeten. dank bij voorbaat.