написать алгоритм (пошаговое выполнение) программы

[Господин Никто]

program asd;
uses crt;
var chislo:byte;
x:integer;
begin
randomize;
chislo:=random(99)+1;
repeat
write('Введите число:');
readln(x);
if x=chislo then break
else if x<chislo then writeln('Неверно, заданное число больше.')
else writeln('Неверно, заданное число меньше.');
until x=chislo;
writeln('Поздравляем вы угадали!');
readln;
end.

ДРУГАЯ:

program asd;
uses crt;
var a:array[1..50] of real;
i,j:integer;
kolvo_ocenok:byte;
max,min:real;
itog:real;
begin
clrscr;
write('Введите количество оценок судей:');
readln(kolvo_ocenok);
for i:=1 to kolvo_ocenok do begin
write('Введите оценку судьи №',i,':');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to kolvo_ocenok do 
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
j:=i;
end;
itog:=0;
for i:=1 to kolvo_ocenok do
itog:=itog+a[i];

itog:=(itog-max-min)/(kolvo_ocenok-2);

writeln('Оценка в зачет:',itog:4:2);
readln;
end.

т.е. просто словами написать каждый шаг,как выполнялась программа

[Poma][a]

т.е. просто словами написать каждый шаг,как выполнялась программа

А почему собственно Вы рассчитываете на помощь? Думаете людям нечем заняться? Ошибаетесь (например раскручивать свой бизнес по шоколадкозарабатыванию путем решения информатики одноклассникам )

Хорошо, даже если кто-нибудь решит Вам помочь, то что заставит этого человека совершить этот поступок? Наверное, просьба о помощи, а не инструкция к действию!

[Господин Никто]

Я никого ведь не заставляю помогать мне. Я считаю, что люди не просто так сидят на этом форуме, где написана помощь студентам. В любом случае, я бы помогла кому-то, зная, что я могу это сделать.
На счёт просьбы о помощи: моя вина. Забыла написать. До этого в сообщениях писала.