Pascal программа в помощь

[Unreall]

решил посмотреть программу в теме которую удалили, но из-за неглубоких знаний не могу сделать.

Суть задания - Задан текст. Определить, состоит ли он только из цифр и образуют ли цифры арифметическую прогрессию.


Пытался сделать первую часть проги, т.е. найти логическое условие и выделение подстрок, но сам запутался в своих действиях.

program qwer;
uses crt;
var st:string;
   k,v,l,i,y,x:integer;
begin
clrscr;
  writeln('vvedite stroky');
  readln(st);
  y:=length(st);
  l:=1;
  k:=0;
  for i:=1 to y do begin
    if st[i]=' ' then begin
      k:=k+1;
      st:=subst(i,k-1);
      for i:=1 to length(st2) begin
        if st2[i]>'0' and st2[i]<'9' then val(stk,n,i) else writeln('stroka sostoit ne tolbko iz chisel');
        readln;
  else begin  writeln('stroka tolbko iz chisel');
  readln;
  end;
end.

Нид хелп

[eoln]

var
  mas: array[1..128] of integer;
  i, j, k, q, n: integer;
  s: string;
begin
  write('s = ');
  readln(s);
  s := s + ' ';
  n := 0;
  //удалим лишнии пробелы
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
  while s <> '' do
  begin
    k := pos(' ', s);
    inc(n);
    val(copy(s, 1, k - 1), mas[n], q);//выдёргиваем число из строки
    if q <> 0 then //если неудалось преобразовать в число
    begin
      writeln('Error');
      readln;
      exit
    end;
    delete(s, 1, k);
  end;
  if n = 1 then //одно число не образует последовательности
  begin
    writeln('Odno chislo');
    readln;
    exit
  end;
  k := mas[2] - mas[1];//разность прогрессии
  for i := 2 to n - 1 do if mas[i + 1] - mas[i] <> k then
  begin
    writeln('Net arifmeticheckoy posledovatel''nosti');
    readln;
    exit
  end;
  writeln('Est arifmeticheckaya posledovatel''nost''');
  readln
end.