Тема модули unit

unit vremya;
interface
uses crt;
function Prov(a,b,c:byte):boolean;
procedure Vvod(var m,n,k,p,q,r:byte);
procedure Result(m,n,k:byte;p,q,r:byte;var m1,n1,k1:byte);
function Vyvod(x:byte):string;
 
implementation
function Prov;{проверка правильности ввода показания часов}
begin
{часы от 0 до 23, минуты и секунды от 0 до 59}
Prov:=(a in [0..23])and(b in [0..59])and(c in [0..59]);
end;
procedure Vvod;{ввод исходных данных}
begin
repeat
writeln('Vvedite nachalnoe vremya:');
write('  Chasy=');readln(m);
write('  Minuty=');readln(n);
write('  Secundy=');readln(k);
until Prov(m,n,k);
writeln('Vvedite pribavlennoe vremya:');
write('  Chasy=');readln(p);
write('  Minuty=');readln(q);
write('  Secundy=');readln(r);
clrscr;
end;
procedure Result;{вычисление нового времени}
var mn,ch:byte;
begin
k1:=(k+r) mod 60;{новые секунды}
mn:=(k+r)div 60;{добавка к минутам}
n:=(n+q+mn) mod 60;{новые минуты}
ch:=(n+q+mn) div 60;{добавка к часам}
m1:=(m+p+ch) mod 24;{новые часы}
end;
function Vyvod;{вывод в виде 00:00:00}
var s,t:string;
begin
str(x,t);
if x=0 then s:='00'
else if (x>0)and(x<=9) then s:='0'+t
else s:=t;
Vyvod:=s;
end;
end.

Uses crt,vremya;
var ch1,mn1,sc1:byte;{начальное время}
    chd,mnd,scd:byte;{добавленное время}
    chr,mnr,scr:byte;{результат}
begin
clrscr;
Vvod(ch1,mn1,sc1,chd,mnd,scd);
writeln('Nachalnoe vremya');
writeln(Vyvod(ch1),':',Vyvod(mn1),':',Vyvod(sc1));
writeln('Vremy pribavlenia');
writeln(Vyvod(chd),':',Vyvod(mnd),':',Vyvod(scd));
Result(ch1,mn1,sc1,chd,mnd,scd,chr,mnr,scr);
writeln('Konechnoe vremya');
writeln(Vyvod(chr),':',Vyvod(mnr),':',Vyvod(scr));
readkey;
end.

unit simvol;
interface
uses crt;
const max=255;
type mas=array[byte] of char;
procedure Vvod(var s:mas;var x:byte);
procedure Zamena(var s:mas;x:byte);
implementation
procedure Vvod;
var i:byte;
begin
repeat
write('Количество символов до ',max,': ');
readln(x);
until x in [1..max];
writeln('Введите ',x,' символов:');
for i:=1 to x do
readln(s[i]);
clrscr;
writeln('Исходная последовательность символов:');
for i:=1 to x do
write(s[i]);
writeln;
end;
procedure Zamena;
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if s[i]='Q' then
 begin
  k:=1;
  s[i]:='K';
 end;
if k=0 then write('Символа Q в последовательности нет!')
else
 begin
  writeln('Символ Q в последовательности есть!');
  for i:=1 to x do
  write(s[i]);
 end;
end;
end.

uses crt,simvol;
var st:mas;
    n:byte;
begin
clrscr;
Vvod(st,n);
Zamena(st,n);
readln
end.