Переделать две программы (одна на массив, вторая - на обработку строк) на использование процедур и функций

[LittleG]

Помогите плиз переделать 2 программки под использование процедур и функций

//11.	Переставить в обратном порядке все положительные компоненты вещественного массива 10 из элементов.
uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,k,i1,i2:integer;
    x:real;
begin;

randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:1);
 end;
writeln;
writeln;
k:=0;{проверим стоит ли заниматься обменом}
for i:=1 to n do
if a[i]>0 then k:=k+1;
if k<2 then
 begin
  write('В массиве нет пар положительных элементов!');
  readln;
  exit;
 end;
i1:=1;i2:=n;{начало и конец}
repeat
for i:=i1 to i2 do
if a[i]>0 then
 begin
  i1:=i;{ищем первый положительный с начала}
  break;
 end;
for i:=i2 downto i1 do
if a[i]>0 then
 begin
  i2:=i;{то же с конца}
  break;
 end;
if i1<=i2 then{если не прошли середину, обмениваем элементы}
 begin
  x:=a[i1];
  a[i1]:=a[i2];
  a[i2]:=x;
 end;
i1:=i1+1;{начало вперед}
i2:=i2-1;{конец назад}
until i2<i1;{все поменяли, встретились}
writeln('Перестановка положительных:');
for i:=1 to n do
write(a[i]:5:1);
readln
end.

2 программа

//11.	Ввести строку. Построить две строки, одна из которых содержит все символы латинского алфавита исходной строки,
// а другая - все остальные символы исходной строки, сохраняя порядок следования символов.
uses crt;
const
  zb = ['A'..'Z', 'a'..'z'];
  ru = ['А'..'Я', 'а'..'я'];
  ch = ['0'..'9'];

var
  s1, s2, s: string;
  i: integer;

begin; writeln;

writeln('Введите любые цифры и буквы');
  write('Строка: ');
  readln(s);
  for i := 1 to Length(s) do
    if (s[i] in zb ) then 
      s1 := s1 + s[i]
    else 
    if (s[i] in ru) then
      s2 := s2 + s[i]
    else
    if (s[i] in ch) then 
      s2 := s2 + s[i];
  write('s1:', s1);writeln;
  write('s2:', s2);
  readln;
end.

[xatabich]

Ну первая программа одна процедура вторая процедура вторая программа ну а между бегином и ендом программы вызывай последовательно сначало первую процедуру потом вторую

[LittleG]

Сообщение от xatabich

Ну первая программа одна процедура вторая процедура вторая программа ну а между бегином и ендом программы вызывай последовательно сначало первую процедуру потом вторую

1 задача.
я так то понял как пишутся процедуры для одномерного массива ввод/вывод, но как связать их с частью где происходит поиск и преобразование я хз..(

Помучился и разобрался)

был бред))))решил