Найдите и исправьте ошибки в тексте программы

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

program lab7_6;
uses crt;
const
FailName= 'myfail_6.txt';
 MaxRecordCount = 100;
type
 TG=string[20];
  GorodRec=record
  naz: string[10];
  Year: Word;
  plozhad: string[15];
  zhiteli: string[15];
  end;
  Table=array[1..MaxRecordCount] of GorodRec;
  var
MenuNum: Byte;
GorodTable:Table;
Count: integer;
procedure sozdanie;
var
F: text;
s: string[100];
begin
Assign(F, 'D:myfail_6.txt');
Rewrite(F);
repeat
Write('Zapolnite dokument');
Readln(s);
Writeln(F,S);
until s=' ';
Close(f);
Readln;
end;
procedure ShowRecord(const ATable:Table;Num:integer);
var
ARec:GorodRec;
begin
ARec:=ATable[Num];
Writeln('NO',Num, 'Nazvanie', ARec.naz, 'Plozhad',ARec.plozhad, 'Zhiteli',ARec.zhiteli, 'God osnovahiya',ARec.Year);
end;
 
 
procedure dobovlenie;
var
ATable: Table;
ACount: integer;
ARec: GorodRec;
begin
Writeln('Vvedite nazvanie goroda');
Readln(ARec.naz);
Writeln('Vvedite plozhad goroda ');
Readln(ARec.plozhad);
Writeln('Vvedite kol-vo zhitelei ');
Readln(ARec.zhiteli);
Writeln('Vvedite god osnovaniya');
Readln(ARec.Year);
inc(ACount);
ATable[ACount]:=ARec;
Write('Dobavlena zapis');
ShowRecord(ATable, ACount);
end;
procedure nazvanie( const ATable:Table; const ACount: integer);
var
i:integer;
naz: string[10];
IsFind: Boolean;
begin
Writeln('Vvedite nazvanie goroda');
Readln(naz);
IsFind:=False;
for i:=1 to ACount do
If ATable[i].naz=naz then
begin
IsFind:=True;
Write('Zapis naidena!');
ShowRecord(ATable,I);
Break;
end;
procedure vivod;
const ATable:Table;
 ACount: integer;
var
I:integer;
begin
Writeln('Spisok vsex zapisei');
for i:=1 to ACount do
ShowRecord(ATable,i);
end;
 
begin
Writeln('Sprovochnik gorogov Avtor: Melnikov A.V');
repeat
Writeln('Vvedite zifru dlya vypolneniya deistviya');
Writeln('1- Sozdanie dokumenta');
Writeln('2-Vyvod po nomeru');
Writeln('3-Dobovlenie novoi zapisi');
Writeln('4-poisk po nazvaniyu');
Writeln('5-Vyvod vsex zapisei');
Writeln('6-vyxod iz programmy');
Readln(MenuNum);
case MenuNum of
1: sozdanie;
2: ShowRecord;
3: dobovlenie;
4: nazvanie;
5: vivod;
end;
until MenuNum = 6;
end.