Двумерные массивы, процедура работы со строками

uses crt;
const nmax=20;//макс размер матрицы, можно изменить
type mas=array[1..nmax] of real;//массив-строка матрицы
     matr=array[1..nmax] of mas;//матрица - массив строк
procedure Vvod(var mt:matr;var x:byte);//создание матрицы
var i,j:byte;
begin
repeat//вводим размер с проверкой диапазона
write('Размер матрицы до ',nmax,' =');readln(x);
until x in [1..nmax];
{writeln('Введите ',x*x,' элементов матрицы:');//это если вводить с клавиатуры
for i:=1 to x do
for j:=1 to x do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;}
for i:=1 to x do//создание рандомно
for j:=1 to x do
mt[i,j]:=10*random;
end;
procedure Vyvod(var mt:matr;x:byte);//вывод на экран
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:0:2,' ');
  writeln;
 end;
end;
procedure Stroka(var v:mas;x,k:byte;var mx:real);//преобразование строк
//входной и выходной параметр - строка, входные-длина строки и ее номер, выходной-макс
var i,imx:byte;
    b:real;
begin
mx:=v[1];imx:=1;
for i:=1 to x do
if v[i]>mx then
 begin
  mx:=v[i];//находим макс
  imx:=i;//его номер в строке
 end;
writeln('Максимальный элемент в строке ',k,'=',mx:0:2);
b:=v[imx];
v[imx]:=v[k];//меняем местами с диагональным
v[k]:=b;
for i:=1 to x do
v[i]:=v[i]/v[imx];//делим на диагональный, он сейчас на месте макс.
//если я неправильно понял и нужно делить на новый диагональный, бывший макс., то так 
//v[i]:=v[i]/v[k];
end;
var a:matr;
    n,i:byte;
    max:real;
begin
clrscr;
randomize;
Vvod(a,n);
writeln('Исходная матрица:');
Vyvod(a,n);
for i:=1 to n do
Stroka(a[i],n,i,max);
writeln('Преобразованная матрица:');
Vyvod(a,n);
readln
end.

while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if s1<>'pro' then write(s1,' ');
  delete(s,1,pos(' ',s));
 end;

uses
  crt;
const
  rzd=[' ',',','.',':',';','+','-','*','/','|','\','=','-','_'];{дописать нужные разделители}
var
  s,s1:string;
  i,k,j:byte;
begin
clrscr;
writeln('Введите строку...');
readln(s);
{пробегаем всю строку посимвольно}
i:=1;
while i<=length(s) do
if not(s[i] in rzd) then{если не разделитель}
 begin
  s1:='';{начинаем составлять слово}
  j:=i;k:=0;{начинаем считать буквы}
  while not(s[j] in rzd)and(j<=length(s)) do
  {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[j];{составляем слово}
    j:=j+1;{идем вперед}
    k:=k+1;
   end;
  if s1<>'pro' then{если не pro}
  write(s1,' ');
  i:=i+k+1;{перепрыгиваем через слово}
 end
else i:=i+1;{если разделитель, пропускаем}
readln
end.

Program pr10;
uses crt;
var st:string;
k:integer;
begin
writeln('vvedite stroky');
readln (st);
k:=pos('pro',st);
while k>0 do
begin
delete(st,k,3);
k:=pos('pro',st);
end;
writeln('poly4enna9 stroka');
writeln(st);
end.