ПРОГРАММИРОВАНИЕ ПАСКАЛЬ
Проверить, все ли строки матрицы содержат хотя бы один элемент, равный заданному числу.
Если не все, найти номер первой строки, где нет элементов, равных заданному числу.

AnsiChar  Символьный тип, гарантированный размер 8 бит 0.. 255
WideChar Тип переменной содержащий отдельный Интернациональный символ 0,,65535
Char Переменная этого типа занимает 1 байт и принимает одно из 256 значений кода ASCII
Real48 Тип с плавающей запятой с самой высокой вместимостью и точностью
Single Занимает 4 байта 
Double Занимает 8 байт 
Extended Занимает 10 байт 
Comp Занимает 8 байт 
Currency Занимает 8 байт −922337203685477.5808...922337203685477.5807 
Real - для записи вещественных чисел 

P.S. Надеюсь на благодарность и лучший ответ.

uses crt;
var a, b, c, i, j, n:integer;   
s, k :array [1..10000] of integer;
begin
     clrscr;
     writeln ('Введите размер массива > 4.');
     read (n);
     for i:=1 to n do 
     begin 
          writeln ('Введите ', i, ' элемент.'); 
          read (s[i]); 
     end;
     for i:=1 to n do 
          for j:=1 to n-1 do 
               while s[i]=s[j] do   
               begin   
                    j:=j+1;   
                    inc (k[i]);   
               end;
     a:=k[1];
     for i:=1 to n do 
          if a<k[i] then
               a:=k[i];
     if k[i]=0 then k[i]:=1;
     writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');
     for i:=1 to n-5 do 
          if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then  inc (b);
     if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);
end.

P.S. Надеюсь на благодарность и лучший ответ.