Kilka błedów:
1) uses powinno być nad var,
2) 9 linijka po ( powinno być',
3) 14 linijka, jak chcesz, żeby Ci wypisało wynik, to po 'To jest wynik ' trzeba przecinek i zmienna wynik,
4) wynik nie zadeklarowane.
program sumator;
uses crt;
var a,b,wynik:integer;
begin
clrscr;
writeln('Ten program sumuje dwie liczby');
writeln('Podaj liczbe a');
readln(a);
writeln('Podaj liczbe b');
readln(b);
wynik := a +b;
writeln('To jest wynik ',wynik);
readln;
end.