Прокомментировать код - Pascal ABC (14504)

Формулировка задачи:

Помогите объяснить программу. То есть комментировать каждое действие программы.Буду очень благодарен.

var s,sa,sb:string;
z:char;
a,b,pr,k:integer;
begin
write('Введите пример >> ');
readln(s);
pr:=pos(' ',s);
while pr <> 0 do
begin
delete(s,pr,1);
pr:=pos(' ',s);
end;
if pos('+',s) <> 0 then z:='+'
else if pos('-',s) <> 0 then z:='-'
else if pos('*',s) <> 0 then z:='*'
else if pos('/',s) <> 0 then z:='/';
sa:=copy(s,1,pos(z,s)-1);
sb:=copy(s,pos(z,s)+1,length(s));
val(sa,a,k);
val(sb,b,k);
case z of
'+' : writeln(a,' + ',b,' = ',a+b);
'-' : writeln(a,' - ',b,' = ',a-b);
'*' : writeln(a,' * ',b,' = ',a*b);
'/' : writeln(a,' / ',b,' = ',a/b);
else writeln('Не верная операция');
end;
end.

Решение задачи: «Прокомментировать код»

Листинг программы

var s,sa,sb:string;
    z:char;
begin
write('Введите пример >> ');//типа 125-89
readln(s);
while pos(' ',s)>0 do delete(s,pos(' ',s),1);//удалим из строки пробелы
if pos('+',s) <> 0 then z:='+'//определяем знак операции
else if pos('-',s) <> 0 then z:='-'
else if pos('*',s) <> 0 then z:='*'
else if pos('/',s) <> 0 then z:='/';
sa:=copy(s,1,pos(z,s)-1);//копируем часть строки до знака
sb:=copy(s,pos(z,s)+1,length(s));//то же после знака
//val(sa,a,k); //это в АВС не нужно
//val(sb,b,k);
case z of  //выполняем действие в сответствии со знаком
'+' : writeln(sa,' + ',sb,' = ',strtoint(sa)+strtoint(sb));
'-' : writeln(sa,' - ',sb,' = ',strtoint(sa)-strtoint(sb));
'*' : writeln(sa,' * ',sb,' = ',strtoint(sa)*strtoint(sb));
'/' : writeln(sa,' / ',sb,' = ',strtoint(sa)/strtoint(sb));
else writeln('Не верная операция');
end;
end.

Объяснение кода листинга программы

Объявляются переменные s, sa, sb типа string и z типа char.
Выводится приглашение для ввода примера.
Считывается введенный пример с помощью функции readln(s).
Удаляются все пробелы из строки s с помощью функции delete(s,pos(' ',s),1).
Определяется знак операции в зависимости от наличия символов '+', '-', '*' или '/' в строке s.
Копируются части строки s до и после знака операции соответственно в переменные sa и sb с помощью функций copy(s,1,pos(z,s)-1) и copy(s,pos(z,s)+1,length(s)).
Выполняется действие в зависимости от знака операции.
Выводится результат выполнения операции в зависимости от знака.
В конце программы выводится сообщение об ошибке, если введенный пример не соответствует ни одному из ожидаемых.