Как записать паскалевскую функцию Inc? - QBasic

var
t,otvet,k,temp,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 100) ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение 
otvet:=0;
t:=0;
for i:=1 to M do
begin
temp:=0;
for j:=1 to N-1 do
begin
for k:=j+1 to N do
begin
if a[i,j]=a[i,k] then inc(temp);
end;
end;
if temp>=otvet then begin t:=i; otvet:=temp;end;
end;
// ответ 
writeln;
writeln('Ответ');
writeln('Номер строки ',t );
end.