Программирование на языке паскаль

составлена программа решения на языке Паскаль
1. Дано предложение. Слова в предложении разделены пробелами. Распечатать в алфавитном порядке буквы, которые присутствуют в одном из слов предложения более одного раза
2. Дана квадратная матрица. Заполнить матрицу целыми числами. Количество положительных элементов должно равняться количеству отрицательных. Написать алгоритм, преобразующий матрицу к виду, где положительные элементы находятся в четных столбцах (заполнять по мере появления таких элементов в матрице), а отрицательные в нечетных столбцах.
3. С помощью стека перевернуть наоборот исходную текстовую строку. Алгоритм разбирает строку посимвольно. ...

Задание №1…………………………………………………………….3
2задание №2…………………………………………………………….4
3задание №3…………………………………………………………….5

Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка, способствующего хорошему стилю программирования, использующему структурное программирование и структурированные данные.

Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программиро ванию[5]. Результат этой работы — язык Модула-2

Type List=^TList;
TList=Record
data:integer;
next:List;
End;
Var st,st1,st2,x,tmp:list;
i,n,t:integer;
Begin
write('Кол-во элементов: ');readln(n);
st:=nil;
For i:=1 to n do
Begin
New(x);
x^.next:=st;
x^.data:=random(31)-15;
st:=x;
End;
x:=st;
writeln('Основной стек');
While x<>nil do
Begin
Write(x^.data:4);
x:=x^.next;
End;
st1:=nil;st2:=nil;
While st<>nil do
Begin
if st^.data>0 then
Begin
New(x);
x^.next:=st1;
x^.data:=st^.data;
st1:=x;
End
else
Begin
New(x);
x^.next:=st2;
x^.data:=st^.data;
st2:=x;
End;
x:=st;
st:=st^.next;
Dispose(x);
End;
tmp:=st1;
While tmp<>nil do
Begin
x:=tmp^.next;
While x<>nil do
Begin
if x^.data<tmp^.data then
Begin
t:=x^.data;
x^.data:=tmp^.data;
tmp^.data:=t;
End;
x:=x^.next;
End;
tmp:=tmp^.next;
End;
x:=st1;
writeln;
writeln('Дополнительный стек 1');
While x<>nil do
Begin
Write(x^.data:4);
x:=x^.next;
End;
tmp:=st2;
While tmp<>nil do
Begin
x:=tmp^.next;