Нужна помощь в алгоритмизации...

Что же вы никто множество-то не узнали?
С точки зрения синтаксиса всё нормально. Ненормально с точки зрения логики. Множество вводится, а дальше что?

uses crt; {Подключение модуля crt, который в программе не используется. Эту строку удалить! }
Var M:set of 1..50; {Объявление множества чисел от 1 до 50}
 x,i:integer; {Объявление целочисленных переменных x и i}
Begin {Начало программы}
 M:=[]; {Инициализация пустого множества}
 For i:=1 to 10 do {Цикл с параметром. Выполняется 10 раз}
 Begin {Начало цикла}
  Writeln('введите ','i'); {Вывод в консоль подсказки "Введите (номер числа) "}
  readln(x); {Ввод целого числа с клавиатуры}
  M:=m+[x]; {Включение введенного числа в множество M}
 end; {Конец цикла}
end. {Конец программы}

так это паскаль, но все равно написана херня, с точки зрения синтаксиса

uses crt; // имя модуля
Var M:set of 1..50; //объявление переменных
x,i:integer; //объявление переменных
Begin //открытие операторной скобки
M:=[]; //инициализация M
For i:=1 to 10 do //цикл for
Begin //операторные скобки цикла
Writeln('введите ','i'); //вывод на экран
readln(x); //ввод данных
M:=m+[x];
end; //закрытие операторной скобки begin
end. //конец подуля

P.S. Проверь код.

не вижу связи с алгоритмами
строчка M:=m+[x]; выглядит очень подозрительно. Может я чего-то не помню в синтаксисе бейсика, но на мой взгляд это хрень

uses crt; // юзать стандартную либу ( это для вывода строк в консоль дальше )
Var M:set of 1..50; //объявление переменных с ииннициализацией
x,i:integer; //объявление переменных
Begin // точка входа
M:=[]; //инициализация M ( сомнительно очень, надо бы переделать на динамическую!! ! ТАК НЕ СТОИТ ДЕЛАТЬ, БУДЕТ ПЕРЕВЕДЕЛЕНИЕ ПАМЯТИ НА КАЖДОМ ЦЫКЛЕ ) короче размер надо сразу !!!
For i:=1 to 10 do //цикл for
Begin .. начало цикла
Writeln('введите ','i'); //вывод в консоль
readln(x); //ввод данных ( остановка на ввод с консоли )
M:=m+[x]; // наверное M := x;
end; // конец цыкла
end. // конец сегмента кода