Определить номер последнего символа, отличного от пробела в исходном тексте

program Project1;
 
var
  s: string[80];
  i: integer;
 
begin
  writeln('Введите строку -> ');
  readln(s);
  for i:=length(s) downto 1 do
    if s[i] = ' ' then break;
  writeln('Последний символ, отличный от пробела имеет номер ',i);
  readln;
end.

program Project1;
 
uses crt;
 
const
  yMax = 4;           {размеры матрицы}
  xMax = 6;
 
var
  a: array[1..yMax, 1..xMax] of integer;
  x: array[1..yMax*xMax] of integer;
  i,j,k: integer;
 
begin
  randomize;
  writeln('Матрица А:');
  for i:=1 to yMax do
    begin
      for j:=1 to xMax do
        begin
          a[i,j]:=random(100);
          write(a[i,j],' ');
        end;
      writeln;
    end;
  writeln('Массив Х:');
  k:=1;
  for i:=1 to yMax do
    for j:=1 to xMax do
      if (a[i,j] mod 5 = 0) and (a[i,j] <> 0) then
        begin
          x[k]:=a[i,j];
          write(x[k],' ');
          inc(k);
        end;
  readln;
end.

program Project1;
 
const
  nMax = 10;      {размер массива А}
  mMax = 15;      {размер массива B}
 
var
  a: array [1..nMax] of integer;
  b: array [1..mMax] of integer;
  c: array [1..nMax+mMax] of integer;
  i,j: integer;
 
begin
  randomize;
  writeln('Первый массив');
  for i:=1 to nMax do
    begin
      a[i]:=random(100);
      write(a[i],' ');
    end;
  writeln;
  writeln('Второй массив');
  for i:=1 to mMax do
    begin
      b[i]:=random(100);
      write(b[i],' ');
    end;
  writeln;
  writeln('Массив полученный слиянием');
  j:=1;
  for i:=1 to nMax do
    begin
      c[j]:=a[i];
      write(c[j],' ');
      inc(j);
    end;
  for i:=1 to mMax do
    begin
      c[j]:=b[i];
      write(c[j],' ');
      inc(j);
    end;
  readln;
end.