Что лишнее фотография , рисунок, текст, схема

Лишнее текст, так как в  этом типе    символы. в остальном же - графика. 

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.

в том виде как есть ничего не делает. после исправления ошибок, принимает следующий вид:

program p2;

var

    d, e, f, g, h, i, j, k : integer;

function sub1(x, y : integer) : integer;

begin

    if x+y = 3 then sub1 : = 3 else sub1 : = y-x;

end;

function sub2(p, q : integer) : integer;

begin

    sub2 : = sub1(p, q)+sub1(q, p);

end;

begin

    g : = 4; h : = 7; i : = 9; j : = 5; k : = 2; d : = 1; e : = 3;

    f : = sub1(g, h);

    f : = sub2(i, j);

    f : = sub1(g, k);

    writeln(g, ' ', h, ' ', i, ' ', j, ' ', k, ' ', d, ' ', e, ' ', f);

end.

и на выходе печатает следующее:

4 7 9 5 2 1 3 -2