Для каждого из массивов определить, расположены ли в нем строчные буквы в алфавитном порядке

const
  m = 5;
 
type
  mas = string[100];
 
procedure test(const x: mas; var z: boolean);
var
  i: byte;
  c: char;
begin
  c := pred('a');
  for i := 1 to length(x) do
    if x[i] in ['a'..'z'] then
      begin
        z := c <= x[i];
        c := x[i];
        if not z then break
      end
end;
 
var
  a: array[1..m] of mas;
  i: byte;
  f: boolean;
begin
  for i := 1 to m do
    begin
      writeln('Введите элементы массива номер ', i);
      readln(a[i])
    end;
  for i := 1 to m do
    begin
      test(a[i], f);
      write('В массиве номер ', i, ' строчные латинские буквы расположены ');
      if not f then write('не ');
      writeln('в алфавитном порядке.')
    end;
  readln
end.

const
  m = 5;
  n = 100;
 
type
  mas = array[1..n] of char;
 
procedure test(const x: mas; const y: byte; var z: boolean);
var
  i: byte;
  c: char;
begin
  c := pred('a');
  for i := 1 to y do
    if x[i] in ['a'..'z'] then
      begin
        z := c <= x[i];
        c := x[i];
        if not z then break
      end
end;
 
var
  a: array[1..m] of mas;
  k: array[1..m] of byte;
  i, j: byte;
  t: string;
  f: boolean;
begin
  for i := 1 to m do
    begin
      writeln('Введите элементы массива номер ', i);
      readln(t);
      k[i] := length(t);
      for j := 1 to length(t) do a[i, j] := t[j]
    end;
  for i := 1 to m do
    begin
      test(a[i], k[i], f);
      write('В массиве номер ', i, ' строчные латинские буквы расположены ');
      if not f then write('не ');
      writeln('в алфавитном порядке.')
    end;
  readln
end.