фигня , вот решение задачи Петра на это языке..
MOD ttt;
VAR
M1:ARRAY [8] OF INTEGER <- ( 1, 2, 3, 4, 5, 6, 7, 0 );
M2:ARRAY [9] OF INTEGER <- ( 28, 1, 2, 3, 4, 5, 6, 7, 0 );
M3:ARRAY [11] OF INTEGER <- ( 38, 39, 30, 1, 2, 3, 4, 5, 6, 7, 0 );
M4:ARRAY [12] OF INTEGER <- ( 1, 2, 3, 4, 5, 6, 7, 48, 0 );
M5:ARRAY [11] OF INTEGER <- ( 1, 2, 3, 4, 5, 6, 7, 58, 59, 50, 0 );
M6:ARRAY [9] OF INTEGER <- ( 1, 2, 3, 68, 4, 5, 6, 7, 0 );
M7:ARRAY [11] OF INTEGER <- ( 1, 2, 3, 78, 79, 70, 4, 5, 6, 7, 0 );
M8:ARRAY [16] OF INTEGER <- ( 1, 2, 80, 81, 82, 3, 4, 5, 83, 84, 6, 7, 85, 86, 87,0 );
PROC PrintDiff(a,b:ARRAY OF INTEGER);
VAR i,j:INTEGER;
BEGIN
i<-1; j<-1;
WHILE a[i] ~= 0 DO //общая внутренность
WHILE a[i] ~= b[j] DO
WRITE (b[j], ' ');
INC(j);
E_WHILE;
WRITELN;
INC(i);
INC(j);
E_WHILE;
WHILE b[j] <> 0 DO // пропущенный мною хвост
WRITE (b[j], ' ');
INC(j);
E_END;
E_PROC;
BEGIN
PrintDiff(M1,M8);
Readln;
E_MOD.
кстати... надо будет вводить кортежи.. если хотим нормальную инициализацию всего..