операнды имеют неприводимые типы

[siner]

pascal abc выдает ошибку: операнды имеют неприводимые типы после a[c] в 7 строке. добавлял в процедуру строку str(a[c],t), не помогло. как сделать операнды совместимыми?

Procedure MastoStr(var a:mas; var t:string);
var c:char;
begin
  t:='';
  for c:='0' to '9' do
    if a[c]>0 then
      t:=t+c+' '+a[c]+',';
    delete(t, length(t), 1);
end;

[Stilet]

mas какого типа?

[siner]

type mas=array['0'..'9'] of integer;

[Stilet]

of integer;

Ты пытаешься без перевода числа в строку использовать в строке его значение. Так нельзя, используй процедуру Str для а[c]-го, чтоб получить из числа строку, и потом уже ее используй в выражении под условием.