Update or Delete my resume

PROGRAM pp;

uses wincrt;

type tab=array[*..**] of integer;

var t:tab ; n,i,p,q:integer;

procedure saisie(var n,p,q:integer );

begin

repeat

writeln('donner n ');

readln (n);

until n in [2..20];

writeln('saisie p et q') ;

readln(p,q);

end;

procedure remplir (var t:tab;n:integer);...