1) a:array[1..m,1..
n] of real;
так нельзя обявлять размер массива. N должна быть константой, либо постоянным числом. Замените на:
a:array[1..m,1..20] of real;
2) переменная s должна быть описана как вещественный тип, т.к. для нее будет применяться деление:
s:real;
3) s:s/m;
В операции присваивания пропущен знак =. Должно быть так:
s:=s/m;
4) у вас отсутствует задание (ввод) массива и числа n
5) for i:=1 to n do
begin
у вас нет закрывающейся операторной скобки для выделенного begin'a. Поставьте его после
writeln('ghfghfghf',i,'knbkbn',s);
да и вообще, выводить лучше осмысленный текст, дабы было понятно, что программа выводит