В чём ошибка этой программы? Она должна запрашивать ввод 2 чисед, а потом вызывать функцию с помомщью которой выведет

В этой программе сразу множество ошибок. Начнем по порядку.var a,b,c:string; //два числа, значит тип должен быть числовымprocedure summ(plus:string;minus:string); //просится функция, а написана процедура, еще и аргументы зачем-то //неверно указаны (имена и тип)Begin plus:=a+b; minus:=a+b; //мало того, что переменные writeln(\'\',plus,\'\'); writeln(\'\',minus,\'\'); //неправильно записан вывод чиселend; Begin Writeln(\'chislo\'); Readln(b); Readln(b); //считывается то же самое числоsumm (Writeln(\'\',plus,\'\',\'\'minus\'\') //неверно записан вывод end.Исправленная программаvar a,b:integer; function f(a:integer;b:integer): integer; Begin writeLn(a+b); writeLn(a-b);end;beginread(a,b);f(a,b);end.